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PRINCIPAL NOTATION 


SYMBOLS 

Unless specified otherwise, all variables are nondimensional. 
Symbol Definition 


c c 
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Specific heats at constant pressure and volume. 

Static pressure coefficient. 

Total energy per unit volume. 

Proportionality constant in Newton's second law. 

Stagnation enthalpy per unit mass. 

Effective thermal conductivity coefficient. 

Dimensional reference length. 

Mach number. 

Time level. 

Number. of grid points in the £ and y\ directions. 

Static pressure. 

Laminar Prandtl number. 

Vector of dependent variables in the Cartesian or cylindrical coordinate form of the 
governing equations. 

Residual. 

Gas constant. 

Reference Reynolds number. 

Static temperature. 

Velocities in the Cartesian x and y directions. 

Velocities in the cylindrical x t r, and swirl directions. 

Cylindrical axial and radial coordinates. 

Cartesian coordinates. 

Ratio of specific heats, c p jc v . 

Second- and fourth-order explicit artificial viscosity coefficients in constant coeffi- 
cient model. 

Implicit artificial viscosity coefficient. 

Cylindrical circumferential coordinate. 

Parameters determining type of time differencing used. 

Constants in nonlinear coefficient artificial viscosity model. 

Viscosity coefficient. 

Computational coordinate directions. 
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Symbol 


Definition 


P 


Static density. 


T 


Computational time. 


SUBSCRIPTS 

Subscri pt Definition 


n 

r 

T 

SUPERSCRIPTS 

Superscri pt 


Denotes grid location in £ and ?/ directions. 
Denotes dimensional normalizing condition. 
Denotes dimensional reference condition. 
Denotes total, or stagnation, value. 


Definition 


Denotes time level. 

Overbar; denotes dimensional value. 
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SUMMARY 

A new computer code, called PROTEUS, has been developed to solve the two-dimensional planar or 
axisymmetric, Reynolds-averaged, unsteady compressible Navier-Stokes equations in strong conservation 
law form. The objective in this effort has been to develop a code for aerospace propulsion applications that 
is easy to use and easy to modify. Code readability, modularity, and documentation have been emphasized. 

The governing equations are written in Cartesian coordinates and transformed into generalized 
nonorthogonal body-fitted coordinates. They are solved by marching in time using a fully-coupled 
alternating-direction-implicit solution procedure with generalized first- or second-order time differencing. 
The boundary conditions are also treated implicitly, and may be steady or unsteady. Spatially periodic 
boundary conditions are also available. All terms, including the diffusion terms, are linearized using 
second-order Taylor series expansions. Turbulence is modeled using an algebraic eddy viscosity model. 

The program contains many operating options. The governing equations may be solved for two- 
dimensional planar flow, or axisymmetric flow with or without swirl. The thin-layer or Euler equations 
may be solved as subsets of the Navier-Stokes equations. The energy equation may be eliminated by the 
assumption of constant total enthalpy. Explicit and implicit artificial viscosity may be used to damp pre- 
and post-shock oscillations in supersonic flow and to minimize odd-even decoupling caused by central 
spatial differencing of the convective terms in high Reynolds number flow. Several time step options are 
available for convergence acceleration, including a locally variable time step and global time step cycling. 
Simple Cartesian or polar grids may be generated internally by the program. More complex geometries 
require an externally generated computational coordinate system. 

The documentation is divided into three volumes. Volume 1 is the Analysis Description, and presents 
the equations and solution procedure used in PROTEUS. It describes in detail the governing equations, 
the turbulence model, the linearization of the equations and boundary conditions, the time and space dif- 
ferencing formulas, the ADI solution procedure, and the artificial viscosity models. Volume 2, the current 
volume, is the User's Guide, and contains information needed to run the program. It describes the pro- 
gram's general features, the input and output, the procedure for setting up initial conditions, the computer 
resource requirements, the diagnostic messages that may be generated, the job control language used to run 
the program, and several test cases. Volume 3 is the Programmer's Reference, and contains detailed infor- 
mation useful when modifying the program. It describes the program structure, the Fortran variables stored 
in common blocks, and the details of each subprogram. 
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1.0 INTRODUCTION 


Much of the effort in applied computational fluid dynamics consists of modifying an existing program 
for whatever geometries and flow regimes are of current interest to the researcher. Unfortunately, nearly 
all of the available nonproprietary programs were started as research projects with the emphasis on dem- 
onstrating the numerical algorithm rather than ease of use or ease of modification. Ihe developers usually 
intend to clean up and formally document the program, but the immediate need to extend it to new ge- 
ometries and How regimes takes precedence. 

The result is often a haphazard collection of poorly written code without any consistent structure. An 
extensively modified program may not even perform as expected under certain combinations of operating 
options. Each new user must invest considerable time and effort in attempting to understand the underlying 
structure of the program if intending do anything more than run standard test cases with it. The user's 
subsequent modifications further obscure the program structure and therefore make it even more difficult 
for others to understand. 

The PROTEUS two-dimensional Navier-Stokes computer program is a user-oriented and easily- 
modifiable flow analysis program for aerospace propulsion applications. Readability, modularity, and 
documentation were primary objectives during its development. The entire program was specified, de- 
signed, and implemented in a controlled, systematic manner. Strict programming standards were enforced 
by immediate peer review of code modules; Kemighan and Plauger (1978) provided many useful ideas about 
consistent programming style. Every subroutine contains an extensive comment section describing the 
purpose, input variables, output variables, and calling sequence of the subroutine. With just two clearly- 
defined exceptions, the entire program is written in ANSI standard Fortran 77 to enhance portability. A 
master version of the program is maintained and periodically updated with corrections, as well as extensions 
of general interest (e.g., turbulence models.) 

The PROTEUS program solves the unsteady, compressible, Reynolds-averaged Navier-Stokes 
equations in strong conservation law form. The governing equations are written in Cartesian coordinates 
and transformed into generalized nonorthogonal body-fitted coordinates. They are solved by marching in 
time using a fully-coupled altemating-direction-implicit (ADI) scheme with generalized time and space dif- 
ferencing (Briley and McDonald, 1977; Beam and Warming, 1978). The current turbulence model is based 
upon the algebraic eddy-viscosity model of Baldwin and Lomax (1978). All terms, including the diffusion 
terms, are linearized using second-order Taylor series expansions. The boundary conditions are treated 
implicitly, and may be steady or unsteady. Spatially periodic boundary conditions are also available. 

The program contains many operating options. The governing equations may be solved for two- 
dimensional planar flow, or axisymmctric flow with or without swirl. The thin-layer or Euler equations 
may be solved as subsets of the Navier-Stokes equations. The energy equation may be eliminated by the 
assumption of constant total enthalpy. Explicit and implicit artificial viscosity may be used to damp pre- 
and post-shock oscillations in supersonic flow and to minimize odd-even decoupling caused by central 
spatial differencing of the convective terms in high Reynolds number flow. Several time step options arc 
available for convergence acceleration, including a locally variable time step and global time step cycling. 
Simple grids may be generated internally by the program; more complex geometries require external grid 
generation, such as that developed by Chen and Schwab (1988). 

The documentation is divided into three volumes. Volume 1 is the Analysis Description, and presents 
the equations and solution procedure used in PROTEUS. It describes in detail the governing equations, 
the turbulence model, the linearization of the equations and boundary conditions, the time and space dif- 
ferencing formulas, the ADI solution procedure, and the artificial viscosity models. Volume 2, the current 
volume, is the User's Guide, and contains information needed to run the program. It describes the pro- 
gram's general features, the input and output, the procedure for setting up initial conditions, the computer 
resource requirements, the diagnostic messages that may be generated, the job control language used to run 
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the program, and several test cases. Volume 3 is the Programmer s Reference, and contains detailed infor- 
mation useful when modifying the program. It describes the program structure, the Fortran variables stored 
in common blocks, and the details of each subprogram. 

The authors would like to acknowledge the significant contributions made by three co-workers in the 
development of the PROTEUS program. Simon Chen did the original coding of the Baldwin-Lomax tur- 
bulence model, and consulted in the implementation of the nonlinear coefficient artificial viscosity model. 
William Kunik developed the original coding for computing the metrics of the generalized nonorthogonal 
grid transformation. Frank Molls made many debugging and verification runs, particularly for spatially 
periodic and unsteady flows. 
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2.0 GENERAL DESCRIPTION 


In this section the basic characteristics and capabilities of the PRO I M S code are described in general. 
More detailed descriptions can be found in other sections of this manual or in Volumes 1 and 3. 

2.1 ANALYSIS 


PROMT'S 2-D solves the two-dimensional planar or axisymmetrie unsteady compressible Navier- 
Stokcs equations. Swirl is allowed in axisymmetrie How. I he planar equations are solved in fully con- 
servative form. Lor turbulent How the Reynolds time-averaged Navier-Stokes equations are used, with 
turbulence modeled using the algebraic eddy viscosity model ot Baldwin and Lomax (1978). As subsets ot 
these equations, options are available to solve the huler equations or the thin-layer Navier-Stokes equations. 
An option is also available to eliminate the energy equation by assuming constant total enthalpy. The 
governing equations and turbulence model are described in detail in Sections 2.0 and 3.0 of Volume 1. 

The equations are solved by marching in time using the generalized time differencing of Beam and 
Warming (1978). The method may be either first- or second-order accurate in time, depending on the 
choice of time differencing parameters. Second-order central differencing is used lor all spatial derivatives. 
The time and space differencing formulas are presented in Sections 4.0 and 6.0 of Volume 1. Nonlinear 
terms are linearized using second-order Taylor series expansions in time, as described in Section 5.0 of 
Volume I. The resulting difference equations are solved using an alternating-direction implicit (ADI) 
technique, with Douglas-Gunn type splitting as written by Briley and McDonald (1977). I he boundary 
conditions are also treated implicitly. 

Artificial viscosity, or smoothing, is normally added to the solution algorithm to damp pre- and post- 
shock oscillations in supersonic flow, and to prevent odd-even decoupling due to the use of central differ- 
ences in convection-dominated regions of the flow. Implicit smoothing and two types of explicit smoothing 
are available in PROTEUS. The implicit smoothing is second order with constant coefficients. Lor the 
explicit smoothing the user may choose a constant coefficient second- and/or fourth-order model (Steger, 
1978), or a nonlinear coefficient mixed second- and fourth-order model (Jameson, Schmidt, and Turkel, 
1981). The nonlinear coefficient model was designed specifically for flow with shock waves. The artificial 
viscosity models are described in detail in Section 9.0 of Volume 1. 

The equations are fully coupled, leading to a system of equations with a block tridiagonal coefficient 
matrix that can be solved using the block matrix version of the Thomas algorithm. Because this algorithm 
is recursive, the source code cannot be vectorized in the ADI sweep direction. However, it is vectorized in 
the non-sweep direction, leading to an efficient implementation of the algorithm. I he solution algorithm 
is described in detail in Section 8.0 of Volume L 

2.2 GEOMETRY AND GRID SYSTEM 

The equations solved in PRO I LLS were originally written in a ('artesian coordinate system, then 
transformed into a general nonorthogonal computational coordinate system as described in Section 2.3 of 
Volume 1. The code is therefore not limited to any particular type of geometry or coordinate system. The 
only requirement is that body-fitted coordinates must be used. In general, the computational coordinate 
system for a particular geometry must be created by a separate coordinate generation code and stored in an 
unformatted file that PROTEUS can read. However, simple Cartesian and polar coordinate systems are 
built in. 

The equations are solved at grid points that form a computational mesh within this computational co- 
ordinate system. Note that a distinction is being made between the terms computational coordinate system 
and computational mesh. The computational coordinate system refers to the (£,?/) system in which the gov- 
erning equations are written. It is determined by supplying a series of points whose ( artesian (xy) coor- 
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dinates are specified, either by reading them from a file or through one of the analytically defined coordinate 
systems built into subroutine GEOM. 'Hie computational mesh consists of grid points distributed along 
lines in the computational coordinate directions. These points may differ in number and location from 
those used to determine the computational coordinate system. The number of grid points in each direction 
in the computational mesh is specified by the user. The location of these grid points can be varied by 
packing them at either or both boundaries in any coordinate direction. The transformation metrics and 
Jacobian are computed using finite differences in a manner consistent with the differencing of the governing 
equations. 

2.3 FLOW AND REFERENCE CONDITIONS 

As stated earlier, the equations solved by PROTEUS are for compressible flow. Incompressible con- 
ditions can be simulated by running at a Mach number of around 0.1. Lower Mach numbers may lead to 
numerical problems. The flow can be laminar or turbulent. The gas constant R is specified by the user, 
with the value for air as the default. The specific heats c p and c„, the molecular viscosity and the thermal 
conductivity k can be treated as constants or as functions of temperature. The empirical formulas used to 
relate these properties to temperature are contained in subroutine FTEMP, and can easily be modified if 
necessary. The perfect gas equation of state is used to relate pressure, density, and temperature. This 
equation is contained in subroutine EQSTAT, which could also be easily modified if necessary . All 
equations and variables in the program are nondimensionalized by normalizing values derived from refer- 
ence conditions specified by the user, with values for sea level air as the default. 

2.4 BOUNDARY CONDITIONS 


The easiest way to specify boundary conditions in PROTEUS is by specifying the type of boundary 7 (i.e., 
no-slip adiabatic wall, subsonic inflow, periodic, etc.). The program will then select an appropriate set of 
conditions for that boundary. For most applications this method should be sufficient. If necessary, how- 
ever, the user may instead set the individual boundary conditions on any or all of the four computational 
boundaries. 

A variety of individual boundary 7 conditions are built into the PROTEUS code, including: (I) specified 
values and/or gradients of Cartesian velocities u, v, and w, normal and tangential velocities V n and V n pres- 
sure p, temperature T, and density p; (2) specified values of total pressure p Tt total temperature T r> and flow 
angle; and (3) linear extrapolation. Another useful boundary condition is a "no change from initial condi- 
tion" option for w, v, w, /?, T, p , p T , and/or T r . Provision is also made for user- written boundary conditions 
using subroutines BCF and BCFLIN. Specified gradient boundary conditions may be in the direction of 
the coordinate line intersecting the boundary or normal to the boundary, and may be computed using 
two-point or three-point difference formulas. For all of these conditions, the same type and value may be 
applied over the entire boundary surface, or a point -by- point distribution may be specified. Unsteady and 
time-periodic boundary conditions are allowed when applied over the entire boundary. The boundary 
conditions available in PROTEUS are described in detail in Section 3.1.7. 

2.5 INITIAL CONDITIONS 

Initial conditions are required throughout the flow field to start the time marching procedure. For un- 
steady flows they should represent a real flow field. A converged steady-state solution from a previous run 
would be a good choice. For steady flows, the ideal initial conditions would represent a real flow field that 
is close to the expected final solution. 

The best choice for initial conditions, therefore, will vary from problem to problem. For this reason 
PROTEUS does not include a general-purpose routine for setting up initial conditions. The user must 
supply a subroutine, called INIT, that sets up the initial starting conditions for the time marching procedure. 
Details on the Fortran variables to be specified by INIT may be found in Section 5.1. 

A version of INIT is, however, built into PROTEUS that specifies uniform flow with constant flow 
properties everywhere in the flow field. These conditions, of course, do represent a solution to the gov- 
erning equations, and for many problems may help minimize starting transients in the time marching pro- 
cedure. However, realistic initial conditions that are closer to the expected final solution should lead to 
quicker convergence. 
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2.6 TIME STEP SELECTION 


Several different options are available for choosing the time step At, and for modifying it as the solution 
proceeds. At may be specified directly, or through a value of the Courant-Fricdrichs-I.ewy (CFL) number. 
When specifying a CFL number, the time step At may be either global (i.e., constant in space) based on 
the minimum CFL limit, or local (i.e., varying in space) based on the local CFL limit. For unsteady 
time-accurate flows global values should be used, but for steady flows using local values may lead to faster 
convergence. Options are available to increase or decrease At as the solution proceeds based on the change 
in the dependent variables. An option is also available to cycle At between two values in a logarithmic 
progression over a specified number of time steps. The various time step options are described in detail in 
Section 3.1.9. 

2.7 CONVERGENCE 

Five options are currently available for determining convergence. The user specifies a convergence cri- 
terion e for each of the governing equations. Then, depending on the option chosen, convergence is based 
on: (1) the absolute value of the maximum change in the conservation variables AQ m „ over a single time 
step; (2) the absolute value of the maximum change AQ m „ averaged over a specified number of time steps; 
(3) the Tj norm of the residual for each equation; (4) the average residual for each equation; or (5) the 
maximum residual for each equation. These criteria are defined in Section 4.1.5. 

2.8 INPUT/OUTPUT 

Input to PROTEUS is through a series of namelists' and, in general, an unformatted file containing the 
computational coordinate system. All of the input parameters have default values and only need to be 
specified by the user if a different value is desired. Reference conditions may be specified in either English 
or SI units. The namelist and coordinate system input are described in Section 3.0. A restart option is also 
available, in which the computational mesh and the initial flow field are read from unformatted restart files 
created during an earlier run. The use of the restart option is described in Sections 3.1.3 and 5.3. 

The standard printed output available in PROTEUS includes an echo of the input, boundary condi- 
tions, normalizing and reference conditions, the computed flow field, and convergence information. The 
user controls exactly which fkw field parameters are printed, and at which time levels and grid points. Se- 
veral debug options are also available for detailed printout in various parts of the program. The printed 
output is described in Section 4.1. 

In addition to the printed output, several unformatted files can be written for various purposes. The first 
is an auxiliary file used for post-processing, usually called a plot file, that can be written at convergence or 
after the last time step if the solution does not converge. Plot files can be written for the NASA Lewis 
plotting program CONT OUR or the NASA Ames plotting program PLOT3D. If PLO T3D is to be used, 
two unformatted files are created, an XYZ file containing the computational mesh and a Q file containing 
the computed flow field. The plot files are described in detail in Section 4.2. Another unformatted file 
written by PROTEUS contains detailed convergence information. This file is automatically incremented 
each time the solution is checked for convergence, and is used to generate the convergence history printout 
and with Lewis-developed post-processing plotting routines. The contents of the convergence history file 
are presented in Section 4.3. And finally, two unformatted files may be written at the end of a calculation 
that may be used to restart the calculation in a later run. One of these contains the computational mesh, 
and the other the computed flow field. The contents of the restart files are described in detail in Section 
4.4. 


1 It should be noted that namelist input is not part of ANSI standard Fortran 77, but is nevertheless available with 
most Fortran compilers. See Section 2.3.1 of Volume 3 for a discussion of possible computer-dependent features 
in the PROTEUS code. 
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3.0 INPUT DESCRIPTION 


The standard input to the two-dimensional version of PROTEUS consists of a title line and sever 
namelists. Additional input may be provided in the form of a pre-stored unformatted file containing the 
computational coordinate system. The calculation can also be started by reading the computational mesh 
and the initial flow field from restart files written during a previous run. This section describes only the 
standard input and the coordinate system file. The restart fde contents and format are descnbcd in Section 

4.4. 

3.1 STANDARD INPUT 

Ml of the standard input parameters have default values and do not need to be specified by the user 
unless some other value is desired. The type (REAU or INTEGER) of the input parameters follows 
standard Fortran convention, unless stated otherwise (i.e., those starting with I, J, k, L M, or N are IN- 
TEGER, and the remainder are REAL.) Note that in most, if not all, implementations of Fortran, name list 
names and input start in character position 2 or higher in the input line. All of the mput, except for namelist 
IC, is read in subroutine INPUT. Namelist IC is read in subroutine INIT. 

3.1.1 Reference and Normalizing Conditions 

Unless specified otherwise, all of the input parameters are specified in nondimensional foim, with the 
appropriate reference condition as the nondimensionalizing factor. A few words explarung what we mean 
by reference conditions and normalizing conditions, and the differences between them, may be helpful at this 
point. 

The normalizing conditions are, by definition, the conditions used in nondimensionalizing the governing 
equations, and are denoted by an n subscript. (See Section 2.0 of Volume 1.) These normalizing conditions 
are defined by six basic reference conditions, for length, velocity, temperature, density, viscosity and thermal 
conductivity, which are specified by the user. Reference conditions are denoted by an r subscript, lhe 
normalizing conditions used in PROTEUS are listed in Table 3-1. 

Note that for some variables, like pressure, the normalizing condition is dictated by the form of the 
governing equations once the six basic reference conditions are chosen. Unfortunately, some of these may 
not be physically meaningful or convenient for use in setting up input conditions. Therefore, some addi- 
tional reference conditions are defined from the six user-supplied ones. The reference conditions are listed 
in Table 3-2. 

To summarize, the normalizing conditions are used to nondimensionalize the governing equations. The 
average user need not be too concerned about these. The reference conditions are the ones used lor 
nondimensionalization of all user-specified input and output parameters. 2 


3.1.2 Title 

TITLE A descriptive title, used on the printed output and in the CONTOUR plot file, up 

to 72 characters long. This is a type CHARAC1 ER variable. 


2 Internal to the PROTEUS computer code itself, variables are generally nondimensionalized by the normalizing 
conditions. The reference conditions are used for input and output because they are usually more physically 
meaningful for the user. 
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3.1.3 Namelist RSTRT 


The parameters tn this namelist control the use of the restart option. The contents of the restart files 
are described in Section 4 . 4 . 


0 if no restart Ides are to be read or written. The initial flow^ field will be gen- 
erated in subroutine IN IT. 

1 to write restart files at the end of the calculation. The initial flow field will 
be generated in subroutine 1 NIT. 

2 to read restart files for the computational mesh and the initial flow field, and 
to write restart files at the end of the calculation. Note that only the initial 
flow field and the computational mesh are read from restart files. The usual 
namelist input must still be read in. Of course, some input parameters, such 
as the reference conditions or those specifying the grid, must not be changed 
during a restart. 

The default value is 0. 


NRQ1N 
NRQOUT 
NRXIN 
NRXOUT 
3.1.4 Namelist IQ 
Printout Controls 


Unit number for reading the restart flow field. The default value is 1 1. 

Unit number for writing the restart flow field. The default value is 12. 

Unit number for reading the restart computational mesh. The default value is 13. 
Unit number for writing the restart computational mesh. The default value is 14. 


The following parameters specify which variables 
and space. 


are to be printed, and at what locations in both time 


IVOUT 


IDF BUG 


An array of up to 50 elements specifying which variables are to be printed. The 
variables currently available for printing are listed and defined in Table 3-3. 3 The 
default values are 1, 2, 20, 30, 40, 45*0, corresponding to printout of x and 
^-velocity, and static density, pressure, and temperature. 

An array of up to 20 elements used to turn on additional printout, normally used 
for debugging purposes. Fxcept where noted, set IDEBUG(I) = 1 for printout 
number I. For options 1 through 7, the input parameters IPRT1 and IPRT2, or 
IPRriA and IPRT2A, determine the grid points at which the printout appears. 
Note that some of these options can generate a lot of output. Judicious use of the 

II RT controls is recommended. I he debug options currently available are as 
follows: 


3 b^ing^spTciffed in^namcltsf ' tL REF ^ 3 3 (,V ° UT = 92 and 102) a55Ume a COnStant turbulcnt PrandU number » 
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IU NITS 


IPRT 


IPRTA 


IPRT1 


Number Printout 


Coefficient block submatrices and source term subvectors at time 
level n = IDEBUG(l) it' IDEBUG(l) > 0, or at time levels 
n> |IDEBUG(1)| if IDEBUG(l) < 0. This printout is done al- 
ter the elimination of any off-diagonal boundary condition sub- 
matrices (subroutine BCELIM) and after any artificial viscosity 
has been added (subroutine AVISC1 or 2), but before any rear- 
rangement of the elements in the boundary’ condition submatnces 

(subroutine ITT TER.) . 

Coefficient block submatrices and source term subvectors at time 
level n = IDEBUG(2) if IDEBUG(2) > 0, or at time levels 
n > | IDEBUG(2) | if iDEBUG(2) < 0. This pnntout is done at- 
ter the elimination of any off-diagonal boundary 1 condition sub- 
matrices (subroutine BCELIM), but before any artificial viscosity 
has been added (subroutine AVISC1 or 2) and before any rear- 
rangement of the elements in the boundary condition submatnces 

(subroutine HE I ER.) . 

Boundary condition coefficient block submatnces and source term 
subvectors at time level „=IDEBUG(3) if IDEBUG(3)>0, or 
at time levels n > 1 IDEBUG(3)| if IDEBUG(3) < 0. I his print- 
out is done before the elimination of any off-diagonal boundary 
condition submatrices (subroutine BCELIM) and before any re- 
arrangement of the elements in the boundary condition submatn- 
ces (subroutine FILTER.) 

Boundary condition coefficient block submatnces and source term 
subvectors at time level n = IDEBUG(4) if IDEBUG(4) > 0. or 
at time levels n > I IDEBUG(4)| if IDEBUG(4) < 0. This print- 
out is done after the elimination of any off-diagonal boundary 
condition submatrices (subroutine BCELIM) and after any rear- 
rangement of the elements in the boundary condition submatnces 

(subroutine FILTER.) . , , 

Intermediate solution Q’ after the first ADI sweep at time level 
n = IDEBUG(5) if IDEBUG(5)>0, or at time levels 
n> |IDEBUG(5)| if IDEBUG(5) < 0. 

Final solution Q" after the last ADI 
n = IDEBUG(6) if IDEBUG(6) > 0, 

n> |IDEBLG(6)| if IDEBUG(6) < 0. . . . 

Cartesian coordinates, metric coefficients, and inverse of the gnd 
transformation Jacobian computed in subroutine ME TS. 


sweep at time level 
or at time levels 


The default values are all 0. 

0 for input and output in English units. 

1 for input and output in SI units. 

The default value is 0. 

Results are printed every IPRTth time level. However, the initial and final flow 
fields are always printed. The default value is 1. 

An array of up to 101 elements specifying the time levels at which results are to 
Sprinted. The initial conditions are at time level l. If the calculation ‘converges 
or if the pressure or temperature is non-positive, the results are printed regardless 
of the value of IPRTA. If this parameter is specified, it overrides the value of 
IPRT. The default values are all 0. 

Results are printed at every IPRTl'th grid point in the { direction. However, the 
results at the boundaries are always printed. I he default value is 1. 
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IPRT2 

IPRT1A 

IPRT2A 

NHMAX 
Plot File Controls 


RcsuUs are pnnted at every IPRT2'th grid point in the r, direction. However the 
results at the boundaries are always printed. The default value is 1. 

An array of up to Nl elements (see Namelist NU\1) specifying the £ indices at 

oHPRTl U Tb^ !°f ;, Pn ? tCd ' ,f 'S' S paraiTleter is specified, it overrides the value 
oi irKl 1. I he default values are all 0. 

An array of up to N2 elements (see Namelist NUM) specifying the « indices at 

XX&’ZSZ 15 “ 11 - * 

Maximum number of time levels allowed in the printout of the convergence history 
file (not counting the first two, which are always printed.) The default value is 10(f 


routm^lTV'ii thC Printed ° UtpUt ’ fde ? f called plot fllcs may be written for use by various post-processing 
tTmS ^ f °“°, Wm8 P™ ctcrs spccd >' the type of plot files to be written, and at what locations m bmh 
imc and space. These plot files arc described in greater detail in Section 4.2. 


IPLOT 


-3 


IPLT 


IPLTA 


for no plot file. 

to write results into an auxiliary file, in CONTOUR format, for later post- 
processing. If multiple tune levels are to be written into the file, they will be 
stacked sequentially. The value of the time T will not be written into the 

to write results into an auxiliary file in CONTOUR format. For multiple 

' m , e ‘ L ; VC S ' V WlU h ? s ‘ orcd , m the z slot. (The subscripts / and j represent 
grid point indices in the £ and y directions.) 

to write results into auxiliary files, in PLOT3D/WHOLE format. Multiple 
tunc levels will be stacked sequentially, 5 with t, , stored in the Q file header 6 
to wnte results into auxiliary files, in PLOT3D/PLANES format. Multiple 

Sbcc PROTFUS ?n with r stored in the Q file header. 5 

St 5; f , V' D *? two-dimensional, the IPLOT =3 option creates 
A XL and O files identical to those created using the IPLOT = 2 option 
to wnte results into auxiliary files, in PLOT3D/PLANES format. For mul- 
tiple time levels, r tJ will be stored in the z slot in the XYZ file 

ml ° fd l S ’ m PLOT2D f «mi a t. Multiple time levels 

will be stacked sequentially, 5 with r u stored in the Q file header. 6 

The default value is 0. 

Results ^ written into the plot file every IPLT th time level. However, if 
Jp, I > J 1 , mitial and final flow fields are automatically included in the file If 
11 L I - 0, only the final flow field is wntten into the file. The default value is 0. 

An array of up to 101 elements specifying the time levels at which results are to 
be wntten into the plot file. 1 he initial conditions are at time level 1 If the cal- 

wnuin n inm V .h r8eS i’ ?'n ^ prc ,f Ure °/ temperatur e is non-positive, the results are 
wntten into the plot file regardless of the value of IPLTA. If this parameter is 

specified, it ovemdes the value of IPLT. The default values are all 0 


4 


The IPLOT = -I option is the better one to use for CONTOUR plot files 
to be consistent with the various PLOT 3D and PLOT2D options 


The IPLOT — 1 option is included only 


5 


The current version of PLOT3D does not work for 
however, fake it out using the IPLOT = -3 option. 


multiple time levels, although future versions might. You can, 


Note that with IDTAU - 5 or 6, t will vary in space, and therefore t, ; ^ Tj 
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Unit Numbers 


The following parameters specify the Fortran unit numbers used for various input and output files. 

NIN, the unit number for reading the standard input file, is hardwired in the program as 5. 

NOUT Unit number for printing standard output. The default value is 6. 

NGRID Unit number for reading computational coordinate system file. The default value 

is 7. 

NPUOTX Unit number for writing XYZ file when using PUOI3D or PLOF2D plot file 
format. The default value is 8. 

NPLOT Unit number for writing CONTOUR plot file, or for writing Q file when using 

PUOT3D or PLOT2D format. The default value is 9. 

NHIST Unit number for writing convergence history file. Ihe default value is 10. 

NSCR1 Unit number for scratch file used in subroutine PUO I when IPUOl — —3. Ihe 

default value is 20. 


3.1.5 Namelist GMTRY 


Coordinate System Type 

These parameters specify the type of flow domain being analyzed. Simple Cartesian or polar config- 
urations can be done automatically. For more complex geometries, the configuration is determined by 
reading a pre-stored coordinate file. Note however, that the number of grid points and their distribution 
can be changed by the parameters in namelist NUM. 

IAXI 0 for a two-dimensional planar calculation. 

1 for an axisymmetric calculation. 

The default value is 0. 

NGEOM Flag used to specify type of computational coordinates. Currently coded are. 

1 Cartesian (jc-j?) computational coordinates. 

2 Polar {d-O') computational coordinates. 7 

10 Get computational coordinates from coordinate system tile. The contents of 
this file are described in Section 3.2. 

The default value is 1 . 


There may be some confusion between the axisymmetric flow option and the polar coordinate system option, or 
between the axisymmetric radius r and the polar coordinate r'. They are not the same thing. The governing flow 
equations were developed by originally writing them in Cartesian (x-y) coordinates, then transforming them m 
generalized tt-r,) coordinates. Therefore, any computational coordinate system that is used, including die polar 
coordinate system, must be related to the original Cartesian system through the "If?" Jjf 

Jacobian. The parameters r’ and 6' are used only to initially define the coordinates in the NGEOM - 2 option. 
Now, if the (x-y) coordinates, no matter how they are obtained, are rotated about the Cartesian x axis the result 
is a cylindrical coordinate coordinate system with y representing the radius r. Thus, the axisymmetric flow option 
can be used with any of the coordinate system options. The polar coordinate option would be useful, for instanc , 
for flow over a sphere. 
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Cartesian Computational Coordinates 


l Nj 1 ^M^rr''?. S ^. lh f, SiZe “V' " ow domam for lhe Cartesian coordinate option 
t jGUOM - 1). 1 he computational (£,»,) domain for this option is shown in physical (xj>) space in Figure 


XMIN 

XMAX 

YM1N 

YMAX 


Minimum x-coordinate for Cartesian coordinate option. The default value is 0.0. 
Maximum x-coordinate for Cartesian coordinate option. The default value is 1.0. 
Minimum j-coordinate for Cartesian coordinate option. The default value is 0.0. 
Maximum ^-coordinate for Cartesian coordinate option. The default value is 1.0. 



Figure 3.1 - Cartesian computational coordinates. 

Polar Computational Coordinates 

Spe w^ thC r si7C ° f the flow domaui for the coordinate option 

(M.l OM - 1 he computational (£,>/) domain for this option is shown in physical (x,y) space in Figure 

RM1N Minimum /-coordinate for polar coordinate option. The default value is 0.0. 

RMAX Maximum /-coordinate for polar coordinate option. The default value is 1.0. 

I UMIN Minimum ^'-coordinate in degrees for polar coordinate option. The default value 

is 0.0. 


1 UMAX 


Maximum ^'-coordinate in degrees for polar coordinate option. The default value 

is 90.0. 
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V 



Figure 3.2 - Polar computational coordinates. 


3.1.6 Namelist FLOW 


Control Flags 

The following parameters are flags that specify the type of equations to be solved, and which variables 
are being supplied as initial conditions. 

I EULER 0 for a full time-averaged Navier-Stokes calculation. 

1 for an Euler calculation (i.e., neglecting all viscous and heat conduction terms.) 

The default value is 0. 

ITHIN A 2-element array, specified as ITHIN(IDIR), indicating whether or not the thin- 

layer option is to be used in direction IDIR. The subscript IDIR = 1 or 2, corre- 
sponding to the £ and rj directions, respectively. Valid values of ITHIN(IDIR) are: 

0 to include second derivative viscous terms in direction IDIR. 

1 to use the thin-layer option in direction IDIR. This does not decrease the ex- 
ecution time much, but may be useful if the grid in direction IDIR is not suf- 
ficiently dense to resolve second derivatives in that direction. 

The default values are both 0. 

IHSTAG 0 to solve the energy equation. 

1 to eliminate the energy equation by assuming constant stagnation enthalpy per 
unit mass. This significantly lowers the overall execution time. 

The default value is 0. 
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1 1. A MV 


ISWIRI 


I C VARS 


0 for constant laminar viscosity and thermal conductivity coefficients equal to 
MLR and K I R. 

1 for variable laminar viscosity and thermal conductivity coefficients, computed 
as a function of local temperature using Sutherland's formula for air (White 
1974). 

I he default value is 0. 

0 for no swirl. 

1 for a swirling calculation in axisymmctric flow. 

The default value is 0. 

Parameter specifying which variables are being supplied as initial conditions for the 
time marching procedure by subroutine I NIT. Remember that the initial condi- 
tions must be nondimen. sionalized by the reference conditions listed in Table 3-2. 
(See Section 5.0 for details on defining initial conditions.) When the energy 
equation is being solved (1IISTAG = 0), and the flow is two-dimensional, or 
axisymmctric without swirl (IAXI = 0 or ISWIRL = 0), the allowed values are- 


ICVARS 

Variables Supplied By IN IT 

1 

P, pu, pv, Ej 

'y 

p, u, v, t 

3 

P, u, v, T 

4 

P , «, V, p 

5 

Cp, W, v, 7 T 

6 

P , M, a v , T 

When the energy equation is being solved (IHSTAG 

axisymmetric with swirl (IAXI = 1 and ISWIRL = 1), the 

ICVARS 

Variables Supplied By IN IT 

1 

2 

p y pu, pv, pw , E r 

p , W, V, w, T 

3 

p, u , v, w, T 

4 

p , u, V, iV, p 

5 

c p , u, v, w, T 

6 

Pi My T 

When constant stagnation enthalpy is assumed (IHSTAC 

two-dimensional, or axisymmetric without swirl (IAXI = 1 
allowed values are: 

ICVARS 

Variables Supplied By INI'f 

1 

py pu, pv 

2 

p, u, V 

3 

p, u, V 

5 

Cpy U, V 

6 

P, M, a v 


IS 


are: 


is 


When constant stagnation enthalpy is assumed (IIISTAG = 1), and the flow is 
axisymmetric with swirl (IAXI = 1 and ISWIRL = 1), the allowed values are: 
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ICVARS Variables Supplied By I NIT 


1 p , pu, pv, pw 

2 p, u , v, w 

3 p, w, v, w 

5 c,, w, v, w 

6 p. M, a* 

In the above tables, c pt <x v , and a w represent static pressure coefficient, flow angle 
in degrees in the x-y (or x-r) plane, and flow angle in degrees in the x-0 plane, re- 
spectively. The default value is 2. 


Reference Conditions 

ddie following parameters specify the six basic reference conditions for length, velocity, temperature, 
density, viscosity, and thermal conductivity. These reference conditions are used, along with some addi- 
tional reference conditions derived from them, as the nondimensionalizing factors for nondimensional input 
and output parameters. The dimensional reference conditions may be read in using either English or SI 
units, depending on the value of IUNITS. 

LR Reference length L r in feet (meters). This is a type REAL variable. The default 

value is 1.0. 

UR Reference velocity u r in ft/sec (m/sec). Either UR or MACHR may be specified, 

but not both. The unspecified one will be computed from the remaining reference 
conditions. The default value is a r = (y r RT r )^ 2 , the speed of sound at the reference 
temperature. 

MACHR Reference Mach number, M r = uJ(y r R T r ) 1/2 . Either MACIIR or UR may be 
specified, but not both. The unspecified one will be computed from the remaining 
reference conditions. This is a type REAL variable. The default value is 0.0. 

TR Reference temperature T r in °R (K). Ihe default value is 519.0 °R (288.333 K). 

R1IOR Reference density p r in lb m /ft 3 (kg/m 3 ). The default value is 0.07645 lbjft 3 

(1.22461 kg/m 3 ). 

MLR Reference viscosity p r in lbjft-sec (kg/m-sec). Either MLR or RER may be 

specified, but not both. The unspecified one will be computed from the remaining 
reference conditions. This is a type REAL variable. The default value is the 
viscosity for air at the reference temperature TR. 

RER Reference Reynolds number, Re r = p r u r l^ r jp r . Either RER or MLR may be spec- 

ified, but not both. The unspecified one will be computed from the remaining 
reference conditions. The default value is 0.0. 

KTR Reference thermal conductivity k r in lb m -ft/sec 3 -°R (kg-m/sec 3 -K). Either KTR 

or PRLR may be specified, but not both. The unspecified one will be computed 
from the remaining reference conditions. This is a type REAL variable. The de- 
fault value is the thermal conductivity for air at the reference temperature TR. 

PRLR Reference laminar Prandtl number Pr lf = c Pr \x r \k r . Either PRLR or KTR may be 

specified, but not both. The unspecified one will be computed from the remaining 
reference conditions. The default value is 0.0. 

Fluid Properties 

The following parameters provide information about the fluid being used. 
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RG Gas constant R in ft 2 /sec 2 -°R (m 2 /sec 2 -K). The default value is 1716 ft 2 /sec 2 -°R 

(286.96 m : /scc 2 -K). 

GAMR Reference ratio of specific heats, y r = c p Jc, r . This parameter acts as a flag for a 

constant specific heat option. If a non-zero value for GAMR is specified by the 
user, C p ^ and c„ f are computed from GAMR and RG, and treated as constants. 
Otherwise they are computed locally as a function of temperature. The default 
value is 0.0. 

HSTAGR Stagnation enthalpy h T in ft 2 /sec 2 (m 2 /sec 2 ). This parameter is only used with the 
constant stagnation enthalpy option (IHSTAG= 1). The default value is com- 
puted from the reference conditions. 

3.1.7 Namelist BC 


The parameters in this namelist specify the boundary conditions to be used. NEQ conditions must be 
specihed at each computational boundary’, where NEQ is the number of coupled equations being solved. 
NEQ will be equal to 3, 4, or 5 depending on the values of IHSTAG and ISWIRL. (See Table 3-4.) 

Note that the boundary conditions may be thought of as simply NEQ additional equations to be solved 
on the boundary. I hey r do not necessarily have to be associated one-to-one with the governing differential 
equations or the dependent variables. They must, however, be functions of the dependent variables and 
sufficiently complete to set constraints on each of the dependent variables through their functional form. 
They must also, of course, be independent of one another and physically appropriate for the problem being 
solved. ' c 

Three different methods are available for setting boundary conditions for steady flow computations. 
The first, and easiest, way is to specify the type of boundary (i.e., solid wall, symmetry, etc.) using the KBC 
input parameters. These parameters act as meta flags, triggering the automatic setting of the necessary 
NEQ individual boundary conditions at the specified boundary. 

Second, if more flexibility is needed, the NEQ individual boundary conditions may be set for each 
boundary using the JBC and GBC input parameters. The boundary condition type (specified value, speci- 
fied gradient, etc.) is given by JBC, and the boundary condition value by GBC. With these parameters, the 
same conditions are applied over the entire surface. 

And third, if even greater flexibility is needed, the NEQ individual boundary conditions may be set for 
each boundary using the IBC and FBC input parameters. These are analagous to the JBC and GBC pa- 
rameters (i.e., the boundary condition type is given by IBC, and the value by FBC), but they allow a 
point-by-point distribution of type and value to be specified instead of using the same type and value over 
the entire surface. 8 

For a given boundary, boundary conditions specified via the KBC parameters override those specified 
using the JBC and GBC parameters, which in turn override those specified using the IBC and FBC pa- 
rameters. However, the different methods may be used in combination as long as they don't conflict. For 
example, the KBC parameters may be used for two boundaries, the JBC and GBC parameters for the third 
boundary, and the IBC and FBC parameters for the fourth boundary. And, on a single boundary, the JBC 
and GBC parameters may be used for some of the NEQ boundary conditions, and the IBC and FBC pa- 
rameten for the rest. 

Unsteady boundary conditions may be used when individual boundary conditions are specified for the 
entire surface, but not when boundary conditions are specified point-by-point. 


8 However, note that a specified point by -point distribution of a function value is most easily set using the 'no change 
from initial conditions' option with the JBC parameters. 
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With one exception, the NEQ boundary conditions at each boundary' may be specified in any order. 
The exception is any condition on one of the dependent conservation variables Q. These must be specified 
in the order given in Table 3-4. 

If a problem requires a boundary condition of the form A F — 0, F = /, dFjdrf) =/ or VF- n —f where 
F is not one of the functions already built into PROTEUS, the subroutines BCF and BCTLIN may be 
used. This requires that the user supply subroutine BCTLIN. A test case with a user-written version of 
BCTLIN is presented in Section 9.2. Subroutines BCT and BCTLIN are described in detail in Volume 3. 

Boundary Types with KBC 

The following parameters set boundary conditions by specifying the type of boundary (i.e., solid wall, 
symmetry, etc.). These parameters act as "meta" flags, triggering the automatic setting of the necessary' JBC 
and GBC values. 

KBC1 An array, given as KBC l(IBOUND), specifying the types of boundaries in the £ 

direction. The subscript IBOUND= 1 or 2, corresponding to the ^ = 0 and 
£ = 1 boundaries, respectively. The default values are both 0. 

KBC2 An array, given as KBC2(IBOUND), specifying the types of boundaries in the y\ 

direction. The subscript IBOUND= 1 or 2, corresponding to the */ = 0 and 
y) — 1 boundaries, respectively. The default values are both 0. 

The boundary types that may be specified are described briefly in the following table, and in greater 
detail in Table 3-5. For boundary types involving gradient boundary conditions, 2-point differencing is used 
if the input KBC value is positive, and 3-point differencing is used if it is negative. For boundary' types 
involving "no change from initial conditions"-type boundary' conditions (e.g., A T = 0), the proper boundary 
values must be set in the initial conditions. 


KBC Value 

Boundary Type 

+ 1 

No-slip adiabatic wall. 

+ 2 

No-slip wall, specified temperature. 

+ 3 

In viscid wall. 

10 

Subsonic inflow, linear extrapolation. 

+ 11 

Subsonic inflow, zero gradient. 

20 

Subsonic outflow, linear extrapolation. 

+ 21 

Subsonic outflow, zero gradient. 

30 

Supersonic inflow. 

40 

Supersonic outflow, linear extrapolation 

+ 41 

Supersonic outflow, zero gradient. 

+ 50 

Symmetry. 

60 

Spatially periodic. 


Boundary' conditions specified using the KBC parameter for a given boundary override any boundary' 
conditions specified for that boundary using the JBC and GBC, or IBC and TBC, parameters. Note, 
however, that since the default values for the KBC parameters are all 0, the default procedure for specifying 
boundary' conditions is by using the JBC and GBC parameters. 

Surface Boundary Condition Types and Values with JBC and GBC 

The following parameters set the NEQ individual boundary' condition types and values for each 
boundary' using the JBC and GBC parameters. With these parameters, the same conditions are applied over 
the entire surface. Remember that the boundary' condition values must be nondimensionalized by the ref- 
erence conditions listed in Table 3-2. If boundary' conditions are being specified using the KBC "meta" 
flags, none of the following parameters are used. If some of the boundary conditions are being specified 
using the IBC and FBC parameters, the appropriate JBC parameters must be set equal to — 1, as described 
below. 
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JBC 1 A two-dimensional array, given as JBC 1(IEQ, IBOUND), specifying the type of 

boundary conditions to be used on the £ = 0 and £ = 1 boundaries. Here 
IEQ = 1 to NEQ corresponding to each equation, and IBOUND = 1 or 2 corre- 
sponding to the £ = 0 and £— 1 boundaries, respectively. Setting JBC1 = — 1 
signals the code to use boundary conditions specified point-by-point, as given by 
the input arrays IBC 1 and EBC1. See Table 3-6 for a list of allowed boundary 
condition types. The default values are all 0. 

JBC2 A two-dimensional array, given as JBC2(IEQ, IBOUND), specifying the type of 

boundary conditions to be used on the rj = 0 and \\ — 1 boundaries. Here 
IEQ = 1 to NEQ corresponding to each equation, and IBOUND = 1 or 2 corre- 
sponding to the >/ = 0 and > 7 = 1 boundaries, respectively. Setting JBC2=— 1 
signals the code to use boundary conditions specified point-by-point, as given by 
the input arrays IBC2 and FBC2. See Table 3-6 for a list of allowed boundary 
condition types. The default values are all 0 . 

GBC1 A two-dimensional array, given as GBC1(IEQ, IBOUND), specifying the values for 

the steady boundary conditions to be used on the £ = 0 and £ = 1 boundaries. 
Here IEQ = 1 to NEQ corresponding to each equation, and IBOUND = 1 or 2 
corresponding to the = 0 and £ = I boundaries, respectively. The default values 
are all 0 . 0 . 

GBC 2 A two-dimensional array, given as GBC2(IEQ, IBOUND), specifying the values for 

the steady boundary conditions to be used on the >7 = 0 and >/ = 1 boundaries. 
Here IEQ = 1 to NEQ corresponding to- each equation, and IBOUND = 1 or 2 
corresponding to the >7 = 0 and >/ = 1 boundaries, respectively. The default values 
are all 0 . 0 . 

Note that boundary condition types 2, 12, 22, etc., are specified values of the derivative with respect to 
the computational coordinate, not with respect to the physical distance in the direction of the computational 
coordinate. See Section 7.3 of Volume 1 for details. 

Boundary conditions specified using the JBC and GBC parameters for given values of IEQ and 
IBOUND override any boundary conditions specified for those values of IEQ and IBOUND using the IBC 
and FBC parameters. Note that since the default values for the JBC parameters are all 0, the default 
boundary conditions are "no change from initial conditions" for the conservation variables. 

Point- by -Point Boundary Condition Types and Values with IBC and FBC 

The following parameters set the NEQ individual boundary condition types and values for each 
boundary using the IBC and EBC parameters. With these parameters, point -by- point distributions are 
specified on the surface for the boundary condition types and values. Remember that the boundary con- 
dition values must be nondimensionalized by the reference conditions listed in Table 3-2. If boundary 
conditions are being specified using the KBC "meta" flags, none of the following parameters are used. Note 
that these parameters are activated by setting the appropriate JBC parameters equal to - 1, as described 
below. 

IBC 1 A three-dimensional array, given as IBC 1(12, IEQ, IBOUND), specifying the type 

of boundary conditions to be used on the £ = 0 and £ = 1 boundaries. Here 
12=1 to N2 corresponding to each grid point on the boundary', IEQ = 1 to NEQ 
corresponding to each equation, and IBOUND = 1 or 2 corresponding to the 
£ = 0 and £ = 1 boundaries, respectively. JBC 1 (IEQ, IBOUND) must be set equal 
to — 1 . See Table 3-6 for a list of allowed boundary condition types. The default 
values are all 0 . 

IBC2 A three-dimensional array, given as IBC2(I1, IEQ, IBOUND), specifying the type 

of boundary' conditions to be used on the >7 = 0 and rj = 1 boundaries. Here 
11= 1 to N 1 corresponding to each grid point on the boundary, IEQ = 1 to NEQ 
corresponding to each equation, and IBOUND = 1 or 2 corresponding to the 
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}] = 0 and Y\ = 1 boundaries, respectively. JBC2(IEQ, IBOUND) must be set equal 
to —l. See Table 3-6 for a list of allowed boundary condition types. The default 
values are all 0. 

1 BCl A three-dimensional array, given as FBC 1(I2,IEQ, IBOUND), specifying the val- 

ues for the steady boundary conditions to be used on the £ = 0 and c = 1 bound- 
aries. Here 12=1 to N2 corresponding to each grid point on the boundary 7 , 
IEQ — 1 to NEQ corresponding to each equation, and IBOUND = 1 or 2 corre- 
sponding to the £ = 0 and £ = 1 boundaries, respectively. The default values are 
all 0.0. 

I BC2 A three-dimensional array, given as FBC2(1 1,IEQ, IBOUND), specifying the val- 

ues for the steady boundary conditions to be used on the >/ = 0 and j/ = 1 bound- 
aries. Here 11 = 1 to NT corresponding to each grid point on the boundary, 
IEQ = 1 to NEQ corresponding to each equation, and IBOUND = 1 or 2 corre- 
sponding to the )] — 0 and >/ = l boundaries, respectively. The default values are 
all 0.0. ~ 

Note that boundary condition types 2, 12, 22, etc., are specified values of the derivative with respect to 
the computational coordinate, not with respect to the physical distance in the direction of the computational 
coordinate. See Section 7.3 of Volume 1 for details. 

Unsteady Boundary Conditions 

The following parameters are used to specify unsteady boundary' conditions. The boundary' condition 
type (specified value, specified gradient, etc.) is given by JBC, as described above, but the value is given by 
GTBC. The type of unsteadiness (general or periodic) is given by JTBC. 

JTBC1 A two-dimensional array, given as JTBC 1(IFQ, IBOUND), specifying the type of 

time dependency for the boundary conditions on the £ = 0 and £ = 1 boundaries. 
Here IEQ = 1 to NEQ corresponding to each equation, and IBOUND = 1 or 2 
corresponding to the ^ = 0 and £ = 1 boundaries, respectively. Valid values of 
JTBC l(IF,Q, IBOUND) are: 

0 for a steady boundary condition, whose value is given by GBC1. 

1 for a general unsteady boundary condition, whose value is determined by linear 
interpolation in the input table of GTBC1 vs. NTBCA. 

2 for a time-periodic boundary 7 condition of the form g { + g 2 sin (# 3 rt + g 4 ), where 
n is the time level and g x through g A are given by the first four values of Gd BCl. 

The default values are all 0. 

JTBC2 A two-dimensional array, given as JTBC2(IEQ, IBOUND), specifying the type of 

time dependency for the boundary conditions on the rj = 0 and y\ — 1 boundaries. 
Here IEQ = 1 to NEQ corresponding to each equation, and IBOUND = 1 or 2 
corresponding to the >/ = 0 and r\ = 1 boundaries, respectively. Valid values of 
JTBC2(IEQ, IBOUND) are: 

0 for a steady boundary 7 condition, whose value is given by GBC2. 

1 for a general unsteady boundary' condition, whose value is determined by linear 
interpolation in the input table of GTBC2 vs. NTBCA. 

2 for a time-periodic boundary 7 condition of the form g x 4- g 2 sin(g 3 rt -f g 4 ), where 
n is the time level and g x through g 4 are given by the first four values of G 1 BC2. 

The default values are all 0. 

NTBC Number of values in the tables of GTBC1 and or GTBC2 vs. NTBCA for the 

ueneral unsteady boundary 7 condition option. The maximum value allowed is the 
value of the PARAMETER N I P. (See Section 6.2.) The default value is 0. 
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NTBCA An array of NTBC time levels at which GTBC1 and or GTBC2 are specified for 

the general unsteady boundary condition option. The default values are all 0. 

GTBC1 A three-dimensional array, given as GTBCl(ITBC,IEQ,IBOUND), used in the 

unsteady and time-periodic boundary condition options for the c = 0 and £ = 1 
boundaries. Here IEQ = 1 to NEQ corresponding to each equation, and 
1 BOUND = 1 or 2 corresponding to the £ = 0 and q — l boundaries, respectively. 
For general unsteady boundary conditions the subscript I I BC = 1 to NTBC, 
corresponding to the time levels in the array NTBCA, and GTBC1 specifies the 
boundary condition value directly. For time-periodic boundary conditions the 
subscript Id BC = 1 to 4, and GTBC1 specifies the four coefficients in the equation 
used to determine the boundary 7 condition value. The default values are all 0.0. 

GTBC2 A three-dimensional array, given as GTBC2(H BC,IEQ,IBOUND), used in the 

unsteady and time-periodic boundary 7 condition options for the y\ = 0 and rf = i 
boundaries. Here IEQ = 1 to NEQ corresponding to each equation, and 
IBOLND = 1 or 2 corresponding to the kj = 0 and rf = 1 boundaries, respectively. 
For general unsteady boundary 7 conditions the subscript Id BC = 1 to NTBC, 
corresponding to the time levels in the array NTBCA, and GTBC2 specifies the 
boundary 7 condition value directly. For time-periodic boundary 7 conditions the 
subscript ITBC = 1 to 4, and GTBC2 specifies the four coefficients in the equation 
used to determine the boundary 7 condition value, The default values are all 0.0. 

3.1.8 Namelist NUM 

Mesh Parameters 

d'he following parameters specify the number of mesh points and the degree of packing. 

N1 Number of grid points N x in the £ direction. For non-periodic boundary condi- 

tions in the £ direction, the maximum value allowed is the value of the PARAM- 
ETER NIP. For spatially periodic boundary conditions, the maximum is 
NIP — 1. (See Section 6.2.) d'he default value is 5. 

N2 Number of grid points Ay in the rj direction. For non-periodic boundary condi- 

tions in the rf direction, the maximum value allowed is the value of the PARAM- 
ETER N2P. For spatially periodic boundary conditions, the maximum is 
N2P — 1. (See Section 6.2.) The default value is 5. 

IPACK A 2-element array, specified as IPACK(IDIR), indicating whether or not grid 

points are to be packed in direction I DIR. The subscript I DIR = 1 or 2, corre- 
sponding to the £ and rf directions, respectively. Valid values of IPACK(IDIR) 
are: 

0 for no packing in direction I DIR. 

1 to pack points in direction IDIR using a transformation due to Roberts (1971). 

The location and amount of packing are specified by the array SQ. 

The default values are both 0. 

SQ A two-dimensional array controlling the packing of grid points near computational 

boundaries, specified as SQ(IDIR,IPC). The subscript IDIR = 1 or 2 corre- 
sponding to packing in the £ and rf directions, respectively. The subscript 
IPC = 1 or 2, where SQ(IDIR,1) specifies the packing location, and SQ(1DIR,2) 
specifies the amount of packing. 

Meaningful values for SQ(IDIR,1) are 0.0, 0.5, and 1.0, where 0.0 corresponds to 
packing near the lower boundary' only (i.e., at £ or rj = 0, depending on IDIR), 1.0 
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corresponds to packing near the upper boundary' only, and 0.5 corresponds to 
equal packing at both boundaries. 

Meaningful values for SQ(IDIR,2) are values above 1.0, but generally 1.1 or below. 
The closer SQ(ID1R,2) is to 1.0, the tighter the packing will be. 

The default values are SQ(IDIR,1) = 0.0 and SQ(IDIR, 2) = 10000.0 for 
I DIR = 1 and 2. 


Artificial Viscosity Parameters 

The following parameters specify the type and amount of artificial viscosity to be used. 


IAV4E 


IAV2E 


IAV2I 


CAVS4E 


CAVS2E 


CAVS2I 


0 for no fourth-order explicit artificial viscosity. 

1 to include fourth-order explicit artificial viscosity using the constant coefficient 
model of Steger (1978). 

2 to include fourth-order explicit artificial viscosity using the nonlinear coefficient 
model of Jameson, Schmidt, and Turkel (1981). 

The default value is 1. 

0 for no second-order explicit artificial viscosity. 

1 to include second-order explicit artificial viscosity using the constant coefficient 
model. 

2 to include second-order explicit artificial viscosity using the nonlinear coefficient 
model of Jameson, Schmidt, and Turkel (1981). 

The default value is 0. 

0 for no second-order implicit artificial viscosity. 

1 to include second-order implicit artificial viscosity using the constant coefficient 
model of Steger (1978). 

The default value is 1 . 


For the constant coefficient model, CAVS4F(IFQ) specifies the fourth-order arti- 
ficial viscosity coefficient directly. For the nonlinear coefficient model it speci- 
fies the constant k 4 . The subscript IEQ varies from 1 to NEQ corresponding to 
each coupled equation. (See Table 3-4 for the order of the equations being solved.) 
Good values for a given application are usually determined by experience, but re- 
commended starting values are 1.0 for the constant coefficient model, 0.005 for the 
nonlinear model when spatially varying second-order time differencing is used, and 
0.0002 for the nonlinear model when a spatially constant first-order time differ- 
encing is used. The default values are all 1.0. 

For the constant coefficient model, CAVS2E(IEQ) specifies the second-order arti- 
ficial viscosity coefficient directly. For the nonlinear coefficient model it speci- 
fies the constant k 2 . The subscript IEQ varies from 1 to NEQ corresponding to 
each coupled equation. (See Table 3-4 for the order of the equations being solved.) 
Good values for a given application are usually determined by experience, but re- 
commended starting values are 1.0 for the constant coefficient model, 0.01 for the 
nonlinear model for flows without shocks, and 0.1 for the nonlinear model for 
flows with shocks. The default values are all 1.0. 

Second-order implicit artificial viscosity coefficient, e 7 , specified as CAVS2I(IE,Q). 
The subscript IEQ varies from 1 to NEQ corresponding to each coupled equation. 
(See Table 3-4 for the order of the equations being solved.) Good values for a 
given application are usually determined by experience, but recommended starting 
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values are 2.0 for the constant coefficient model, and 0.0 for the nonlinear model. 
The default values are all 2.0. 

Time Difference Centering Parameters 

The following parameters specify the type of time differencing scheme to be used. The generalized Beam 
and Warming (1978) time differencing formula is given by equation (4.1) of Volume 1. 

T HC A 2-element array specifying the time differencing centering parameters 6 l and 0 2 

to be used for the continuity equation. The default values are TO and 0.0. 

1 HX A 3-element array specifying the time differencing centering parameters 0 U 0 2 , and 

#3 to uset * f° r the x-momentum equation. ITe default values are 1.0, 0.6, and 
0 . 0 . 

I HY A 3-element array specifying the time differencing centering parameters 0 U 0 2 , and 

0 3 to be used for the j’-momentum equation. The default values are 1.0, 0.0, and 

0.0. 

rUZ A 3-element array specifying the time differencing centering parameters 0 ] , 0 2 , and 

0 3 to be used for the swirl momentum equation. The default values are 1.0, 0.0, 
and 0.0. 

VHh A 3-element array specifying the time differencing centering parameters 0 ,, 0 2t and 

0 3 to be used for the energy equation. The default values are 1.0, 0.0, and 0.0. 

The following table summarizes the time differencing schemes that may be used. The Euler implicit 
method is recommended for steady flows, and the 3-point backward implicit method is recommended for 
unsteady flows. 


0. 

0 2 

(?„ Method 

Accuracy 

1 

0 

0 Euler implicit 

Oi At) 

1/2 

0 

1 2 Trapezoidal implicit 

0( At ) 2 

1 

1/2 

1 3-point backward implicit 

O(At ) 2 


Spatial Difference Centering Parameters 

The following parameters specify the type of spatial differencing scheme to be used. The general spatial 
differencing formula is given by equation (6.1) of Volume 1. 

ALPHA 1 Spatial difference centering parameter a, for the f direction. The default value is 
0.5 (central differencing.) 

ALPHA2 Spatial difference centering parameter a 2 for the rj direction. The default value is 
0.5 (central differencing.) 


3.1.9 Namelist TIME 

Time Step Selection Parameters 

The following parameters determine the procedure used to set the time step size, and to change it as the 
solution proceeds. 
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IDTMOD 


The time step size At is recomputed every IDTMODth step. The default value 
is 1. 

IDTAU 1 for a global (i.e., constant in space) time step At == (CFL)At c// , where At c// is the 

minimum of the allowable time steps at each grid point based on the CFL cri- 
teria for explicit methods. 

2 for a global time step initially computed using the IDTAU = 1 option, but ad- 
justed as the solution proceeds based on AQ„, ax , the absolute value of the 
maximum change in the dependent variables. 9 For any of the dependent vari- 
ables, if AQ^cCHGl, the CFL number is multiplied by DTFL If 
A Q max > CHG2, the CFL number is divided by DTF2. If AQ max >0.15, the 
CFL number is cut in half. The CFL number will not be decreased below 
CFLMIN, or increased above CFLMAX. 

3 for a global time step At equal to the specified input D T. 

4 for a global time step initially equal to the specified input D1 , but adjusted as 
the solution proceeds based on AQ max , the absolute value of the maximum 
change in the dependent variables. 9 For any of the dependent variables, if 
AQ max < CHG1, At is multiplied by DTFL If AQ max > CHG2, At is divided 
by DTF2. If AQ max >0.15, At is cut in half. At will not be decreased below 
DTMIN, or increased above DTMAX. 

5 for a local (i.e., varying in space) time step (Ar), w = (CFL)(At c// ), w , where 
(At c// ) <w is the allowable time step at each grid point based on the CFL criteria 
for explicit methods. 

6 for a local time step initially computed using the ID I AU = 5 option, but ad- 
justed as the solution proceeds based on AQ mflJ( , the absolute value of the 
maximum change in the dependent variables. 9 For any of the dependent vari- 
ables, if AQ m „<CHGl, the CFL number is multiplied by DTFL If 
AQ mox > CHG2, the CFL number is divided by DTF2. 11 AQ mox >0.15, the 
CFL number is cut in half. The CFL number will not be decreased below 
CFLMIN, or increased above CFLMAX. 

7 for a global time step with cycling. At will be cycled repeatedly between 
DTMIN and DTMAX using a logarithmic progression over NDTCYC time 
steps. For some problems this option has been shown to dramatically speed 
convergence. However, the choice of DTMIN, DTMAX, and NDTCYC is 
critical, and no method has been developed that assures a good choice. Poor 
choices may even slow down convergence, so this option should be used with 
caution. 

If IDTAU = 7, ICHECK and IDTMOD are both automatically set equal to 1, and 

NITAVG is set equal to NDTCYC. In addition, if IDTAU = 7 and 

ICTEST = 1, ICTEST is changed to 2. If IDTAU = 2, 4, or 6, IDTMOD is au- 
tomatically set equal to ICHECK. The default value is 5. 

The above parameters IDTAU and IDTMOD apply to every case. Which of the remaining parameters 
are needed depends on the value of IDTAU, as specified in the following table. 

IDTAU Parameters Needed 

1 CFL 

2 CFL, CHG1, CHG2, DTF1, DTF2, CFLMIN, CFLMAX 

3 DT 

4 DT, CHG1, CHG2, DTF1, DTF2, DTMIN, DTMAX 

5 CFL 

6 CFL, CHG1, CHG2, DTF1, DTF2, CFLMIN, CFLMAX 

7 DTMIN, DTMAX, NDTCYC 


9 In AQ max , the total energy E r has been divided by E Tr = p r RTJ(y r —1)4- PA 2 /^ so that it is the same order of 
magnitude as the other conservation variables. 
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Cl L 


DT 


CIIG1 


CHG2 


DTF1 

DTF2 


CFLMIN 


CFLMAX 


DTMIN 


DTMAX 


NDTCYC 


/Vn array, given as CFL(ITSEQ), specifying the ratio At/At^, where At is the ac- 
tual time step used in the implicit calculation and At c// is the allowable time step 
based on the CFL criteria for explicit methods. The subscript ITSEQ is the se- 
quence number. For time steps 1 through NTIME(l), CFL(l) will be used. Then 
for steps NTIME(l) + 1 through NTEME(l) + NTIME(2), CFL(2) will be used, 
etc. 10 CFL is not used if 1DTAU = 3, 4, or 7. The default values are all 1.0. 

An array, given as DT(ITSEQ), specifying the time step size At. The subscript 
ITSEQ is the sequence number. For time steps 1 through NTIME(l), DT(1) will 
be used. Then for steps NTIME(l) + 1 through NTIME(l) + NTIME(2), DT(2) 
will be used, etc. 11 DT is not used if IDrAU = 1, 2, 5, 6, or 7. The default values 
are all 0.01. 

Minimum change, in absolute value, that is allowed in any dependent variable 
before increasing At. CHG 1 is only used if IDTAU = 2, 4, or 6. The default value 
is 0.04. 

Maximum change, in absolute value, that is allowed in any dependent variable 
before decreasing At. CHG2 is only used if IDTAU = 2, 4, or 6. The default value 
is 0.06. 

Factor by which At is multiplied if the solution changes too slowly. DTF1 is only 
used if IDTAU = 2, 4, or 6. The default value is 1.25. 

Factor by which At is divided ii the solution changes too quickly. DTF2 is only 
used if IDTAU = 2, 4, or 6. The default value is 1.25. 

Minimum value that the CFL number is allowed to reach. CFLMIN is only used 
if IDTAU = 2 or 6. The default value is 0.5. 

Maximum value that the CFL number is allowed to reach. CFLMAX is only used 
if IDTAU = 2 or 6. 'The default value is 10.0. 

Minimum value that At is allowed to reach (IDTAU = 4), or the minimum At in 
the time step cycling procedure (IDTAU = 7.) The default value is 0.1. 

Maximum value that At is allowed to reach (IDTAU = 4), or the maximum At 
in the time step cycling procedure (IDTAU = 7.) The default value is O.L 

Number of time steps per time step cycle. NDTCYC is used only with 
IDTAU = 7. The default value is 2, which results in a constant At if 
DTMIN = DTMAX. 


Time Marching Limits 

1 hese parameters determine the maximum number of time steps that will be taken. 

N I SEQ I he number of time step sequences being used. The maximum value allowed is 

the value of the PARAMETER NTSEQP. If NTSEQ > 1, IDTAU must be 
equal to 1,3, or 5. (See Section 6.2.) The default value is 1. 


10 Note that if IDIAU = 2 or 6, CTL(l) only sets At for the first time step, and that the time step sequencing option 
does not apply. 

11 Note that if IDTAU = 4, DT(1) only sets At for the first time step, and that the time step sequencing option does 
not apply. 
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NTIME An array, given as NTIME(ITSEQ), specifying the maximum number of time 

steps to march. The subscript ITSEQ varies from 1 to NTSEQ, and allows a series 
of different time steps to be specified by the values of CFL or DT. 
NTIME(ITSEQ) specifies the number of time steps within sequence ITSEQ. If 
NTSEQ = 3, for example, the total number of time steps taken will be 
N totai = NTIME(I) 4- NTIME(2) + NTIME(3). The initial time level is level 1, 
and the final computed time level will be level N total + 1. The default values are 
10, 9 + 0. 


Convergence Testing Parameters 

These parameters determine the convergence criteria to be used. 


ICHECK Results are checked for convergence every ICHECKth time level. The default 
value is 10. 


ICTEST 


EPS 


1 to determine convergence based on the maximum change in absolute value of 
each of the conservation variables over a single time step, AQ m „. 12 

2 to determine convergence based on the maximum change in absolute value of 
each of the conserv ation variables, averaged over the last NITAVG time steps, 
A Q«i 12 

3 to determine convergence based on R L2 , the norm of the residual for each 
equation. 

4 to determine convergence based on R fl ^, the average absolute value of the resi- 
dual for each equation. 

5 to determine convergence based on R mffX , the maximum absolute value of the 
residual for each equation. 

Convergence is assumed when the maximum change or residual parameter is less 
than EPS. Note that the change in conservation variables over a time step is di- 
rectly related to the size of the time step. Small time steps naturally yield small 
changes in conservation variables. With ICTEST = 1 or 2, therefore, convergence 
may be indicated prematurely. 

If ICTEST = 2, ICHECK and IDTMOD are automatically set equal to 1. The 
default value is 3. 

Level of convergence to be reached, specified as EPS(IVAR) where I VAR varies 
from 1 to NEQ, corresponding to each conservation variable or equation. The 
default values are all 0.001. 


NITAVG Number of time steps over which the maximum change in conservation variables 
is averaged to determine convergence. The maximum value allowed is the value 
of the PARAMETER NAMAX. (See Section 6.2.) NITAVG only applies to the 
ICTEST = 2 option. The default value is 10. 


3.L10 Namelist TURB 


Model Type Controls 

The following parameters determine the type of turbulence model that will be used. 

ITURB 0 for laminar flow. 

1 for turbulent flow, using the algebraic eddy viscosity model of Baldwin and 
Lomax (1978), as described in Section 3.0 of Volume 1. 


12 The total energy E r is divided by E r = p r R TJ(y r —1)4- p r u*l 2 before testing for convergence, so that it is the same 
order of magnitude as the other conservation variables. 
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The default value is 0. 


INNER 


ILDAMP 


PRT 


Control Parameters 

These parameters 
viscosity coefficient. 

IWALL1 


IWALL2 


IT’XI 


ITETA 


1 to use the inner layer model of Baldwin and Lomax (1978). 

2 to use the inner layer model of Spalding (1961) and Kleinstein (1967). 

The default value is 1 . 

0 to use the normal Baldwin- Lomax mixing length Tormula in the inner region. 

1 to use the modified mixing length formula of Launder and Priddin ( 1973) in the 
inner region of the Baldwin- Lomax model. 

The default value is 1 . 

If PRT > 0.0, it specifies the turbulent Prandtl number, which will be treated as 
constant. If PRT < 0.0, the turbulent Prandtl number will vary, and be computed 
using the empirical formula of Wassel and Catton (1973). The default value is 
0.91. 


specify which boundaries and directions are important in computing the turbulent 


A 2-element array, specified as IWALLl(IBOUND), specifying which £ bounda- 
ries are solid walls. The subscript IBOUND = 1 or 2, corresponding to the £ = 0 
and £ = 1 boundaries, respectively. Valid values of IWALL1 (IBOUND) are: 

0 if the boundary is not a solid wall. 

1 if the boundary is a solid wall. 

IWALLl(IBOUND) is not needed if the boundary condition for boundary 
IBOUND is set using the KBCl(IBOUND) meta flag. The default values are both 
0. 

A 2-element array, specified as IWALL2(IBOUND), specifying which rj bounda- 
ries are solid walls. The subscript IBOUND = 1 or 2, corresponding to the y = 0 
and y\ = 1 boundaries, respectively. Valid values of IWALL2(IBOUND) are: 

0 if the boundary is not a solid wall. 

1 if the boundary is a solid wall. 

I WALL2( IBOUND) is not needed if the boundary condition for boundary 
IBOUND is set using the KBC2(IBOUND) meta flag. The default values are both 
0. 

0 to bypass computation of turbulent viscosity on lines in the £ direction. 

1 to compute turbulent viscosity on lines in the £ direction (i.e., due to walls at 
rj = 0 and/or r/ = 1, or due to a free turbulent flow in the £ direction.) 

If ITHIN(l) = 1, ITXI is automatically set equal to 1. The default value is L 

0 to bypass computation of turbulent viscosity on lines in the rj direction. 

1 to compute turbulent viscosity on lines in the r\ direction (i.e., due to walls at 
£ — 0 and/or £ = 1, or due to a free turbulent flow in the rj direction.) 

If ITHIN(2) — 1, ITETA is automatically set equal to 1. The default value is 0. 
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Transition Parameters 


ITese parameters are used in the laminar-turbulent transition model of Cebeci and Bradshaw (1984). 

RLXT 1 The Reynolds number at the beginning of the transition region. This parameter 

only applies to cases with flow predominantly in the £ direction, and with a leading 
edge at £ = 0. The Reynolds number is based on maximum total velocity and 
distance from £ — 0. The default value is 0.0. 

REXT2 The Reynolds number at the beginning of the transition region. This parameter 

only applies to cases with flow predominantly in the yj direction, and with a leading 
edge at r\ = 0. The Reynolds number is based on maximum total velocity and 
distance from yj = 0. T he default value is 0.0. 

Constants 

The following parameters are various constants used in the turbulence modeling procedure. 

CCLAU The Clauser constant K used in the Baldwin- Lomax outer region model. T he de- 

fault value is 0.0168. 

CCP The constant C c used in the Baldwin- 1 xnnax outer region model. The default 

value is 1.6. 

CWK The constant C wk used in the formula for F wake in the Baldwin- Lomax outer region 

model. The default value is 0.25. 

CKLEB The constant C Kieb used in the formula for the KlebanofT intermittency factor F Khb 

in the Baldwin- Lomax outer region model. The default value is 0.3. 

APLUS The Van Driest damping constant A + used in the Baldwin-Lomax outer and inner 

region models. The default value is 26.0. 

CB The constant B used in the formula for the KlebanofT intermittency factor F K/e6 in 

the Baldwin-Lomax outer region model, and in the Spalding- Klein stein inner re- 
gion model. The default value is 5.5. 

CVK The Von Karman mixing length constant k used in both the Baldwin-Lomax and 

Spalding- Kleinstcin inner region models. The default value is 0.4. 

CNL The exponent n in the Launder- Priddin modified mixing length formula. The de- 

fault value is 1.7. 

CNA The exponent n in the formula used to average the two outer region \i t profiles that 

result when both boundaries in a coordinate direction are solid surfaces. T he de- 
fault value is 2.0. 

3.1,11 Namelist 1C 

This namelist is used in subroutine I NTT to read in parameters needed in setting up the initial condi- 
tions. The version of INTT built into PROTEUS specifies uniform flow with constant properties every- 
where in the fknv field. In general, however, the user will supply a version of I NTT tailored to the problem 
being solved. I his namelist, then, may be modified by the user to read in parameters different from those 
listed here. 

P0 Initial static pressure p Q . The default value is 1.0. 

TO Initial static temperature T 0 . The default value is 1.0. 
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L'O 


Initial x-direction velocity Uq. The default value is 0.0. 
Initial ^-direction velocity v 0 . I he default value is 0.0. 
Initial swirl velocity w 0 . 1 he default value is 0.0. 


V0 
W0 

3.2 coordinate SYSTEM EIEE 

The type of computational coordinate system to be used is controlled by the input parameter NGEOM 
in namelist GMTRY. f or NGEOM = Ilk the coordinate system is read from a pre-stored file. This file 
may be created bv any body-fitted coordinate system generator available to the user. I he coordinates may 
be nonorthogonal. 

The metric coefficients and Jacobian describing the nonorthogonal grid transformation are computed 
internally by PROTEUS. T his calculation involves numerically computing first derivatives of the user- 
specified coordinates. Since FRO Tl I S solves the Navier- Stokes equations in fully conservative form, the 
metric coefficients themselves are lactors in terms whose first and second derivatives are also computed 
numerically. In effect, then, third derivatives of the user-specified coordinates are used in the solution. Care 
should therefore be taken in ensuring that these coordinates are smooth. No coordinate smoothing is done 
by PRO MT S itself. 

The C artesian (x,v) or cylindrical (x,r) coordinates describing the computational coordinate system aie 
read from an unformatted file as follows: 

READ (NGRID) NG1,NG2 

READ (NGRID) ( ( XC( J1 , J2) , Jl=l , NG1 ) , J2=l , NG2) , 

$ ( (YCC Jl, J2), J1=1,NG1), J2=1,NG2) 

The parameters read from the file are defined as follows: 

NG1 Number of points in the £ direction. The maximum value allowed is the value of 

the PARAMET E R NIP. (See Section 6.2.) 

NCJ2 Number of points in the >i direction. The maximum value allowed is the value of 

the PARAMETER N2P. (See Section 6.2.) 

XC Cartesian or cy lindrical x-coordinate. 

YC Cartesian or cylindrical y or r-coordinate. 

Note that the number of points NG1 and NG2 used to specify the computational coordinate system 
need not be the same as the number of points N 1 and N2 used in the computational mesh. The coordinates 
of the points m the computational mesh, which is the mesh used in the PRO I ECS solution, will be found 
by interpolation among the points in the computational coordinate system. 
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TABLE 3-1. - NORMALIZING CONDITIONS 


Variable 

Normalizing Value 

Length 

A. = L r 

Velocity 

K=“r 

Temperature 

T = T 

1 n 1 r 

Density 

Pn = Pr 

Viscosity 

Pn = Pr 

Thermal conductivity 

K = K 

Pressure 

Pn = PM r 

Energy per unit volume 

e„ = P Mr 

Gas constant 

Rn = *lt 

Specific heat 

% = U '! T ' 

Enthalpy 

**■ 

ii 

■fL 

Time 

t„ = E r /« r 


TABLE 3-2. - REFERENCE CONDITIONS 


Variable 

Reference Value | 

Length 

L, 

Velocity 

Ur 

Temperature 

T, 

Density 

Pr 

Viscosity 

Pr 

Thermal conductivity 

K_ 

Pressure 

Pr = Pr R TJg e 

Energy per unit volume 

e r = PMr 

Enthalpy 

* 

Specific heat 

U rlT, 

Time 

LJUr 
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TABLE 3-3. - OUTPUT VARIABLES 


IVOU’T 

VARIABLE 

DEFINITION 


Velocities 

1 

^-velocity 

U 

2 

y or r-velocity 

V 

3 

Swirl velocity 

w 

4 

Mach number 

»- 'V 

5 

Speed of sound 

(2 — yJyRT 

6 

Contravariant velocity 
normal to { surface 

U “ £( + u£ x + 

7 

8 

Contravariant velocity 
normal to rj surface 

V= t}, + u nx + Vtj y 

9 

Total velocity magnitude 

I VI =(w 2 + v 2 + w 2 ) 1/2 

10 

x-momentum 

pu 

11 

y or r-momcntum 

pv 

12 

Swirl momentum 

pw 

13 

{-velocity 

V \ = (*ly u - *!x v )/(9 2 + »/ 2 ) I/2 

14 

* 7 -velocity 

V v = (-t y U+{ x v)l(Z 2 x + e y ) 112 


Densities 

20 

Static density 

P 

/, y — 1 2 \ '/(y-l) 

Pi — 1 + ^ M j 

21 

Total density 
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I VOLT 

VARIABLE 

DEFINITION 

1 

Pressures | 

30 

31 

Static pressure 
Total pressure 

P 

( y - 1 2 \ W<y-D 

Pt — P\^ + 2 J 

32 

Static pressure coefficient 

P~Pr 

Pr u r! 2 Sc 

33 

Total pressure coefficient 

Pt ~ Pr r 

C PT~~ 2 n 

Pr u r l 2 8c 

34 

Pitot pressure 

Pp = Pt if v/ =£ 1 



( y + 1 v A yt{y ~ X) 
^ = 2 M ) 



( \y™ if *,>. 

\ y + l y + l / 

35 

Dynamic pressure 

1 (2,2, 2\ Pr u r 

- P (u +v +w) gcPr 

Temperatures 

40 

Static temperature 

r 

41 

Total temperature 


Energies 

50 

Total energy per unit volume 

e t 

51 

Total energy 

e t 

p 

52 

Internal energy 

II 

<ir 

53 

Kinetic energy 

^ = y(“ 2 + v 2 + *' 2 ) 

Enthalpies 

60 

Static enthalpy 

iP* 

II 

61 

Total enthalpy 

»• 

II 
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IVOUT 


VARIABLE 


DEFINITION 




'orticities 

70 

71 

72 

73 

x-vorticity 
y or r- vo rt icily 
z or tf-vorticity 
Total vorticity magnitude 

Q x = ^ + ~~ if axisymmetric^ 

a =-^L 
> dx 

q dv du 

z ~ dx dy 

\n\=(o 2 x + n 2 y + n ]) ]l2 


Entropies 

80 

Entropy 



Temperature- Dependent Parameters 

90 

Laminar viscosity coefficient 

£ 

1 

II 

S* 

91 

Laminar second coefficient of 

. 2 fit 


viscosity 

X <= 3 

92 

Laminar thermal conductivity 
coefficient 

i 

II 

93 

Specific heat at constant 
pressure 

c p 

94 

Specific heat at constant vol- 
ume 

c v 

95 

Ratio of specific heats 

. _ c p 
y q 


Turbulence Parameters 


100 

Turbulent viscosity coeffi- 
cient 

Mr 

101 

Turbulent second coefficient 

2/i f 


of viscosity 

3 

102 

Turbulent thermal 

1 


conductivity coefficient 

£ 

II 

103 

Effective viscosity coefficient 

M 

104 

Effective second coefficient 
of viscosity 

2 

105 

Effective thermal 
conductivity coefficient 

k 
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IVOL’T 

VARIABLE 

DEFINITION 


Coordinates j 

200 

Cartesian x-coordinate 

X 

201 

Cartesian or cylindrical y or 

y or r 


r-coordinate 


202 




Metric Parameters 

210 

Inverse of the grid transfer- 

r' 


mation Jacobian 


211 

Metric coefficient 

t, 

212 

Metric coefficient 


213 

Metric coefficient 

iy 

214 



215 

Metric coefficient 

V: 

216 

Metric coefficient 

y h 

217 

Metric coefficient 

n y 

218 



219 



220 



221 



222 




Times 

230 

Time step size 

At 

231 

lime 

T 


TABLE 3-4. - EQUATIONS SOLVED 


II 1ST AG 

ISWIRL 

NEQ 

Order of Equations 

Order of 

Dependent Variables 

0 

0 

4 

Continuity, x-momentum, 
y or r-momentum, energy 

p, pu, pv, E r 

1 

0 

3 

Continuity, x-momentum, 
y or r-momentum 

p, pu, P^’ 

1 

1 

4 

Continuity, x-momentum, 
y or r-momentum, swirl momentum 

p, pu, pv, pw 

0 

1 

5 

Continuity, x-momentum, 

y or r-momentum, swirl momentum, 

energy 

p, pu, pv, pw, E t 
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TABLE 3-5. - BOUNDARY TYPES 


KBC 

VALUE 4 

BOUNDARY TYPE 


EQUATIONS 

± 1 

No- slip adiabatic wall 

11, 21, 31, +43, 
± 53 

u = v = w = 0, dpjdn — dTjdn = 0 

± 2 

No-slip wall, specified tem- 
perature 

11, 21, 31, +43, 
50 

u — v = w — 0, dpjdn = 0, AT = 0 

±3 

Inviscid wall 

+ 33, + 43, +53, 
71, 79 

dwjdn = dpjdn = dTjdn = 0, 
V n = 0, d 2 V,ld<j> 2 = 0 

10 

Subsonic inflow, linear ex- 
trapolation 

14, 24, 34, 46, 56 

d 2 ujd<j> 2 = d 2 vjd<j> 2 = d 2 w/d({> 2 = 0, 
Ap T = AT r = 0 

± 11 

Subsonic inflow, zero gradi- 
ent 

+ 12, + 22, + 32, 
46, 56 

dujd<f> — dvjd(f> = dwjd(f> = 0, 
Ap r = A T r = 0 

20 

Subsonic outflow, linear ex- 
trapolation 

14, 24, 34, 40, 54 

d 2 ujd<j> 2 = d 2 vjd4> 2 = d 2 wjd<f> 2 = 0, 
Ap = 0, d 2 Tjd4> 2 = 0 

±21 

Subsonic outflow, zero gradi- 
ent 

+ 12, + 22, + 32, 
40, ±52 

duld<f> = dvjd<j> = dw/dtj) = 0, 
Ap = 0, dTjd<j> = 0 

30 

Supersonic inflow 

10, 20, 30, 40, 50 

Am = Av = Atv = Ap = AT = 0 

40 

Supersonic outflow, linear 
extrapolation 

14, 24, 34, 44, 54 

d 2 uld(j> 2 = d 2 vjd(t> 2 = d 2 wjd(j> 2 = 0, 
d 2 pjd4> 2 = d 2 Tjd<j> 2 = 0 

±41 

Supersonic outflow, zero gra- 
dient 

+ 12, + 22, + 32, 
±42, ±52 

duldcj> = dvjd(f> = dwld<j> = 0, 
dpjdfp = dTjd<f> = 0 

± 50 

Symmetry 

+ 33, + 43, + 53, 
71, ±78 

dwjdn = dpjdn = d'Tjdn = 0, 
V„ = 0, dV,jdn=Q 

60 

Spatially periodic 


Qi = Qv, or Q, = Q v , 


a Use the '+" sign for 2-point one-sided differencing of first derivatives, and the sign for 3-point differencing of 
first derivatives. b 


40 Input Description 


PROTEUS 2-D User s Guide 




TABLE 3-6. - BOUNDARY CONDITION TYPES 


JBC OR IBC 
VALUE 3 

EQUATION 

DESCRIPTION 

Conservation Variable Boundary Conditions 

0 

AQ = 0 

No change from initial conditions. 

1 

Q=f 

Specified conservation variable. 

+ 2 

dQ/d<t> =f 

Specified coordinate direction gradient. 

+ 3 

dQjdn =/ 

Specified normal direction gradient. 

4 

5 

6 

7 

8 
9 

d 2 Q ld<t> 2 = 0 

Linear extrapolation. 


x-Velocity Boundary Conditions 


10 

Au = 0 

No change from initial conditions. 

11 

u=f 

Specified x-velocity. 

+ 12 

duld<j> = / 

Specified coordinate direction gradient. 

+ 13 

dufdn — f 

Specified normal direction gradient. 

14 

d 2 u/d<t> 2 = 0 

Linear extrapolation. 

15 



16 



17 



18 



19 




y or r-Velocity Boundary Conditions 


20 

21 

+ 22 
+ 23 

24 

25 

26 

27 

28 
29 

Av = 0 
v=/ 
dvjd4> = f 
dvjdn = / 
d 2 vjd(f> 2 = 0 

tan _l (v/u) = / 

No change from initial conditions. 
Specified y or r- velocity. 

Specified coordinate direction gradient. 
Specified normal direction gradient. 
Linear extrapolation. 

Specified flow angle in degrees. 

Swirl Velocity Boundary Conditions 

30 

> 

II 

o 

No change from initial conditions. 

31 

w=f 

Specified swirl velocity. 

+ 32 

dwjd<t> = / 

Specified coordinate direction gradient. 

+ 33 

dw/dn =/ 

Specified normal direction gradient. 

34 

d 2 wld<t> 2 = 0 

Linear extrapolation. 

35 



36 



37 



38 



39 

tan l (w/u) — / 

Specified flow angle in degrees. 
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1 + 1 + 


JBC OR IBC 
VALUE 3 

EQUATION 

DESCRIPTION 

Pressure Boundary Conditions 

40 


No change from initial conditions. 

41 

/>=/ 

Specified static pressure. 

+ 42 

d P id<f> =/ 

Specified coordinate direction gradient. 

+ 43 

dpjdn = / 

Specified normal direction gradient. 

44 

45 

d 2 pjd4> 2 = 0 

Linear extrapolation. 

46 


No change from initial conditions. 

47 

Pt = f 

Specified total pressure. 

48 



49 


i 


Temperature Boundary Conditions 


50 

AT — 0 

51 

7’=/ 

52 

dT/d<f> =/ 

53 

dTjdn =/ 

54 

d 2 Tjd4> 2 = 0 

55 


56 

> 

II 

O 

57 

II 

* t- 

h- 

58 

59 



No change from initial conditions. 
Specified static temperature. 

Specified coordinate direction gradient. 
Specified normal direction gradient. 
Linear extrapolation. 


No change from initial conditions. 
Specified total temperature. 


Density Boundary Conditions 


60 

61 

+ 62 
+ 63 

64 

65 

66 

67 

68 
69 

A p = 0 

P =/ 
dp/d<t> =/ 
dpjdn =/ 
d 2 P jd4> 2 = 0 

No change from initial conditions. 
Specified static density. 

Specified coordinate direction gradient. 
Specified normal direction gradient. 
Linear extrapolation. 


Normal and Tangential Velocity Boundary Conditions 

70 

71 

K=f 

Specified normal velocity. 

± 72 

dv n jd 4 > =/ 

Specified coordinate direction gradient. 

±73 

dVJdnmf 

Specified normal direction gradient. 

74 

75 

d 2 VJd4> 2 = 0 

Linear extrapolation. 

76 

K=f 

dV, 15(f) =/ 

Specified tangential velocity. 

±77 

Specified coordinate direction gradient. 

± 78 

dVJdn = f 

Specified normal direction gradient. 

79 

d 2 V,ld(f> 2 = Q 

Linear extrapolation. 
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JBC OR IBC 
VALUE 4 

EQUATION 

DESCRIPTION 


User-Supplied Boundary' Conditions 

90 

o 

1 ! 

k, 

< 

No change from initial conditions. 

91 

F=f 

Specified function. 

+ 92 

dF/dtp =f 

Specified coordinate direction gradient. 

+ 93 

dFIdn = / 

Specified normal direction gradient. 

94 

95 

96 

97 

98 

99 

d 2 Fjd<f> 2 = 0 

Linear extrapolation. 


Use the '+' sign for 2 point one-sided differencing, and the sign for 3-point one-sided differencing. 


PROTEUS 2-D User's Guide 


Input Description 





4.0 OUTPUT DESCRIPTION 


Several output files may be created during a PROTEUS run. The standard output is a formatted file 
written to Fortran unit NOUT that is intended for printing. Additional unformatted files may be written 
for use as input by various post-processing programs. Unformatted restart files may also be wntten for use 
as input for a subsequent PROTEUS run. 

4.1 STANDARD OUTPUT 

The standard PROTEUS output is a formatted file written to Fortran unit NOUT and is intended for 
printing. Actual examples of typical standard output files are presented in Section 9.0. Unless specified 
otherwise, all of the output parameters in the standard output are nondimensional, with the appropriate 
reference condition from Table 3-2 as the nondimensionalizing factor. 

4.1.1 Title Page and Namelists 

The standard PRO TEUS output begins with a title page, 13 which identifies the version of PROTEUS 
being run and lists the user-specified title for the run. This is followed by a printout of the contents of the 
mpu! namelists RSTRT, IO, GMTRY, FLOW, BC, NUM, TIME, 

not specified by the user in the input namelists, the values in this printout will be the default values. 

4.1.2 Boundary Conditions 

The next page is a printout of the boundary conditions being used. The boundary condition parameters 
JBC and GBC are printed in a box-l.ke manner, with the values for the { = 0 and « = 1 surfaces on the left 
and right, and the values for the = 0 and r, = 1 surfaces on the bottom and top J* r^^NTBCA 
boundary conditions are being used, this is followed by a listing of the input tables of G TBC vs. i 1 BCA. 

4.1.3 Normalizing and Reference Conditions 

The dimensional values for the normalizing and reference conditions are printed on the next page, with 
the appropnate units as set by the input parameter IUNITS. The normalizing conditions are the parameters 
used to nondimen sionalize the governing equations. The reference conditions are used during input and 
output for nondimensionalization of various parameters and for specifying various ow con * 1 ° • 

distinction between normalizing and reference conditions is described m greater detail in Section 3.1.1. y 
are listed in Tables 3-1 and 3-2. 

After the printout of the normalizing and reference parameters comes anything written to unit NOTH 
by the user-supplied subroutine I NIT. For the default version of IN1T supphed with PROTEUS, this 
consists only of the contents of namelist 1C. 

4.1.4 Computed Flow Field 

The bulk of the standard PROTEUS output consists of printout of the computed flow field. The input 
array IVOUT determines which variables are printed, as described m Section 3.1.4. The variables curren y 
available for printing are listed and defined in Table 3-3. The printout for each variable at a given time level 
will begin on a separate page. The header for each variable will include the time level n, and f ™gl 
steps (IDTAL =1-4, 7), the time t and time increment At m seconds. In the flow field printout, each 


n In this discussion, when 'pages' of output are referred to it is assumed that the file is printed with Fortran carnage 

control in effect. PRECEDING PAGE BLANK NOT FILMED 
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PAR F M *j INTENTIONALLY BLANK 



S ,0Cati0n ’ and each rOW l ° 3X1 >! location - The columns and rows are numbered 

Idow field results are printed at time levels and gnd pomts specified by the user through parameters in 

1 l , k" CC " S Pnn . Can be VCr> ' lcngthy ’ ,hc uscr is encouraged to minimize the amount of 
, uiu d (u.tput b> making judicious use of these parameters. Usually, the computed results can be examined 
nu M , - nKlcntl > ns,n s post -processing graphics routines like CONTOUR or PLOT3D. (See Section 4.2). 

...J!" t,! '' U ’ U r b ;‘ l j‘ l prinUHIt if,hc run cnds normally a message is printed indicating whether or not the 

j: 1 ( on > licence History 

In evaluating the results of a steady PROTEUS calculation, it's important to consider the level of con- 
vergence . I his may be done by examining one of the forms of the residual for each equation. The residual 
Mrnpi v the number resulting from evaluating the steady form of the equation at a specific °rid Point and 
myluy.™.,,,,,) level. Ideally, the residual, would all approach aero a, couvcrgeuce. C&K 

,! ' , pi °, ’ k " t ls tllL - v oftc [ 1 dlo P to a certain level and then level off. Continuum the calculation beyond 

tins point will not improve the results. - lu 

A decrease in the L 2 norm of the residual of three orders of magnitude is sometimes considered sufficient, 
onvcrgencc, however is in the eye of the beholder. The amount of decrease in the residual necessary for 
rn p Wl11 var > riom problem to problem. l or some problems, it may even be more appropriate to 
measure comergence by some flow-related parameter, such as the lift coefficient for an airfoil. Determining 
when a solution is sufficiently converged is, in some respects, a skill best acquired through experience. ° 

w ( . r ; A ‘ * h i Cnd ° f a PRO f IELS calculation if first-order time differencing and steady boundary conditions 
in this l0I> ' * Pr “‘ Cd f “ CaCh e ° V " ni " 8 CqUa,i °” “ parameters 


I EVEE 
ClKiMAX 


lime level n. 

Maximum change in absolute value of the dependent vanables from time level 

tl— 1 tO A7. 15 


Cf IGAVG 


RHSL.2 


1 1 


A Qmax = max | AQ- J 


Maximum change in absolute value of the dependent variables, averaged 
the last NI FAVG time steps. 15 


steps 

A Qav g 


over 


1 


n 

1 


NITAVG 

m=n— NITAVG 

The Li norm of the residual at time level n. 


AQ 


m - 1 


RESAVG 


R 




-G>f 


The average absolute value of the residual at time level n, R a 


14 ; Vc ° nd ord .f tin 'e differencing should be used only for unsteady problems, for which "convergence" has 
meaning. It should also be noted that the computation of the residuals in the code is correct only for first-order 


time differencing. 


f or the energy equation, the change in E r is divided by E r = Pr R TJ(y r - 1) + ptfj 2, so that it is the same order 
of magnitude as the other conservation variables. 
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RESMAX 

LRMAX 


The maximum absolute value of the residual at time level n , R„ 
The grid indices (i,f) corresponding to the location of R mJi - 


In computing the residuals, the summations, maximums, and averages are over all intenor grid points, plus 
points on spatially periodic boundaries. 

To avoid undesirably long tables, the convergence parameters are printed at an interval that limits the 
printout to Ml MAX time levels. NHMAX can be specified by the user m namelist IO Hovvever the 
residuals are always printed at the first two time levels. 1'his is done because the residuals at tune level 1 
(the initial condition level) may not be truly representative of the degree of convergence. For mstanc 
the initial conditions are zero velocity and constant pressure and temperature at e ^ y ‘^ 
computed residuals will be exactly zero. When the t.me marching procedure begins, however, flow held 
will start developing in response to the boundary' conditions, and the residuals will reach a maximum in 
first few time steps. Note that, in the printout, C1IGMAX will be zero untd time level « =1CMECK. 
C11GAVG will only be computed when ICIEST = 2, and will be zero untd time level n = M 1 AV G. 

As noted in Section 9.1 of Volume 1, adding artificial viscosity changes the original 
differential equations. For cases run with artificial viscosity, therefore, the residuals are printed both with 
and without the artificial viscosity terms included. Ihis may provide some estimate of ^ “ 
the solution introduced by the artificial viscosity. Convergence is determined by the residuals with the ar- 

tificial viscosity terms included. 

4.1.6 Additional Output 

In addition to the output discussed above, various types of additional printout can be generated by the 
IDEBUG options, as discussed in Section 3.1.4. Various diagnostics may also appear in the standard out- 
put file. These are discussed in greater detail in Section 7.0. 

4.2 PLOT FILES 

The amount of flow field data generated by a Navicr-Stokes code is normally much too large to effi- 
ciently comprehend by examining printed output. The computed results are therefore generally examined 
graphically using various post-processing plotting routines. These plotting routines require as input a 
or files, generally called plot files, that are written by the flow solver and contam the coordmates and com- 
puted flow field data. 

Various types of unformatted plot files may be written by PROTEUS, as controlled by the pa- 
rameter 1PI.OT discussed in Section 3.1.4. These files are designed for use by either the CON IOU 
PLOT3D plotting programs. 16 

CONTOUR is a three-dimensional plotting program developed at NASA Lewis using ^mal Lewis- 
developed graphics routines. It currently can be used only at NASA Lewis on the Amdahl 5860 computer 
using the VM operating system, or from the Scientific VAX Cluster using the VMS operating sys _ 
Originally designed for use with three-dimensional Parabolized Navier-Stokcs (PNS) codes, it can be used 
to generate various types of contour and velocity vector plots in computational planes. 

PLOT3D (Walatka and Buning, 1990) is a sophisticated three-dimensional plotting program specifically 
designed for displaying results of computational fluid dynamics analyses. It is widely used in government, 
industry, and universities for interactive visualization of complex flow field data generated by CFD analyses. 
The computational grid is stored in one file, called an XYZ file, and the computed flow field is stored in 
another file, called a Q file. There are several options within PLOT3D concerning the format of these files. 
At NASA Lewis, PLOT3D is available on the Silicon Graphics IRIS workstations and on the Scientific 

VAX Cluster. 


■s If only the Iasi computed time level is of interest, the restart files may also be used for plotting with PLOT3D. See 
Section 4.4. 
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It should be noted that, in hortran, unformatted files contain information at the beginning and or end 
ol each record about the record length, file type, etc. The way this information is stored with the record 
vanes from computer to computer. Unformatted files are therefore not generally transportable. If the plot 
hies written by PROTEUS are to be used on some other computer (e.g., a graphics workstation), a separate 
conversion program will normally be required. 

4.2.1 CONTOUR Plot File (IPLOT = 11 

With the IPLOI'= 1 option in PROTEUS, a plot file is generated for use by CONTOUR using the 
lollowing Eortran statements: 


10 


WRITE (NPLOT) TITLE 

WRITE (NPLOT) MACHR, RER, L R, UR, PR, TR, RHOR, RG, GAMR 
WRITE (NPLOT) LEVEL , N1 , N2, ISYM, SYSTEM 
DO 10 II = 1 , N1 

WRITE (NPLOT) ((F(IVAR,I1,I2),IVAR=1,14),I2=1,N2) 
CONTINUE 


All of the above WRITE statements are executed for each time level written into the file. The plot file thus 
consists of multiple sets of data, each containing the computed results at a single time level. Note that with 
this option, the value of the time t is not written into the file. 1 ’ 


Unless specified otherwise, all of the parameters written into the CONTOUR plot file are nondimen- 
sional, with the appropriate reference condition as the nondimensionalizing factor. The parameters are de- 
fined as follows: 


TITLE 

MACIIR 

RER 

LR 

UR 

PR 

TR 

RHOR 

RG 

GAMR 

LEVEL 

N1 

N2 

ISYM 

SYSTEM 

F(l„) 

I'(2„) 

F(3„) 

F(4„) 


A descriptive title for the problem. 

Reference Mach number, M, = ujJy r RT r . This is a type REAL variable. 
Reference Reynolds number, Re r = p,u r l. r jp r . 

Reference length L, in feet (meters). This is a type REAL variable. 
Reference velocity u, in ft/sec (m/sec). 

Reference static pressure p r = p r RTJg c in lb f /ft 2 (N/m 2 ). 

Reference temperature T r in °R (K). 

Reference density p r in lb m /ft 3 (kg/m 3 ). 

Gas constant R in ft 2 /sec 2 -°R (m 2 /sec 2 -K). 

Reference ratio of specific heats, y, = c„ lr . 

Time level n. 

Number of grid points N x in the { direction. 

Number of grid points N, in the tj direction. 

A symmetry parameter used in CONTOUR, set equal to 1. 

A coordinate system parameter used in CONTOUR, set equal to 0. 

Set equal to 0. 

Cartesian x coordinate. 

Cartesian y coordinate or cylindrical r coordinate, 

Set equal to 0. 


P IPLOT = ~ l option, discussed in the next section, is the better one to use for CONTOUR plot files. The 
IPLOT = 1 option is included only to be consistent with the various PLOT3D and PLOT2D options. 
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F(5„) 

Velocity in the £ direction, 

F(6„) 

Velocity in the rj direction, V r 

F(7„) 

Static pressure p\p r 

F(8„) 

Static temperature T. 

F(9„) 

Mach number M = yju 2 + v 2 + vri 

F(10„) 

^-velocity u. 

F(H„) 

y or r-velocity v. 

F(12„) 

Swirl velocity w. 

r ( 13,,) 

Static density p. 

F ( 14,.) 

T otal energy per unit volume E r . 

CONTOUR Plot File 

(IPLOT =-l) 


The CONTOUR plot file generated using the IPLOT = —1 option is essentially the same as the one 
discussed in the previous section. There are just two differences. First, the first two records, containing the 
title and the reference conditions, are written only once, at the beginning of the file, and not at each time 
level. And second, the time t, w is written in the E( 1 ,) position. (The subscripts i and j represent grid point 
indices in the £ and y\ directions.) 

As noted in the previous section, CONTOUR was originally designed for use with three-dimensional 
Parabolized Navier-Stokes codes. With PNS codes, the streamwise marching coordinate was written into 
the F(l,) position, and contours or velocity vectors could be plotted at different streamwise stations. 

With the IPUOT = -1 option in PROTEUS, the resulting CONTOUR plot file is analogous to the one 
produced for PNS codes, but with the streamwise marching coordinate replaced by the time. Contours and 
velocity vectors can thus be easily plotted at different time levels. 

4.2.3 PLOT3D/ WHOLE Plot Files (IPLOT = 2) 

With the IPUOT = 2 option in PROTEUS, the XYZ and Q files are written in PUOT3D/WHOUE 
format. With this option, the XYZ file is written using the following Fortran statements: 

WRITE (NPLOTX) N1,N2,N3 

WRITE (NPLOTX) ( ( X( I 1 , 12) , I 1=1 , N1 ) , 12=1 , N2) , 

$ (<Y(I1,I2),I1=1,N1),I2=1,N2), 

$ ( ( ZDUM ,11=1, Nl), 12=1, N2) 

The Q file is written using the following Fortran statements: 

WRITE ( NPLOT) N1,N2,N3 

WRITE (NPLOT) MACHR, AQA , RER, TALK 1 , 1 ) 

WRITE (NPLOT) ( ( ( QPL OT ( I 1 , I 2 , I VAR) , I 1 =1 , Nl ) , I 2= 1 , N2 ) , I VAR=1 , 5 ) 

The above WRITE statements for the Q file are executed for each time level written into the file. The Q 
file thus consists of multiple sets of data, each containing the computed results at a single time level. The 
XYZ file is written only once . 18 

The parameters written into the file are defined as follows: 

N 1 Number of grid points N x in the £ direction. 

N 2 Number of grid points N 2 in the >7 direction. 


18 The current version of PLOT3D does not work for multiple time levels, although future versions might. You can, 
however, fake it out using the IPLOT = —3 option described in Section 4.2.5. 
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N3 

X 

Y 

ZDL'M 

MAC HR 

AOA 

RER 

TAL’(U) 

QPLOT(„l) 

QPLOT(„2) 

QPLOT(»3) 

QPLOT(„4) 

QPLOT(„5) 


In PLOT3D, the number of grid points in the £ direction. Set equal to 1 for 
2-D PROTEUS. 

Cartesian .r coordinate. 

Cartesian y coordinate or cylindrical r coordinate. 

In PLOT3D, the Cartesian z coordinate. Set equal to 0. in 2-D PROTEUS. 

Reference Mach number, XI r = u r lyJy r RT r . This is a type REAL variable. 

In PLOT3D, the angle of attack. Set equal to 0. in PROTEUS. 

Reference Reynolds number, Re r = p r u r LJp r . 

The time r u . 19 

Static density p. 

A-momentum puXf r 
y or r-momentum pvM r 
Swirl momentum pwM r . 

To t;d energy’ per unit volume E r \t 2 . 


All of the parameters written into the XYZ and Q files are nondimensional. However, PLOT3D as- 
sumes that velocity is nondimensionalizcd by f the reference speed of sound a r = (y r R r r y > 2 , and that energy 
is nondimensionalizcd by p r a}. In PRO 1 EUS these variables are nondimensionalizcd by u r and p r u 2 r . That 
is why Xf r appears in the definitions of QPLOT(„2) through QPLOT(,,5). 


4.2.4 PLOT3P/PLAXES Plot Files ([PLOT = 3) 

Since PROTEUS 2-D is two-dimensional, the IPLOT = 3 option creates XYZ and Q files identical to 
those created using the IPLOT = 2 option described in the previous section. 


4.2,5 PLOT3D/PLAXES Plot Files (IPLOT = -3) 

This option is similar to the IPLOT = 3 option, except that the time t is written into the z slot in the 
XYZ file. The XYZ file is written using the following Fortran statements: 

WRITE CNPLOTX) N1,N2,N3 
DO 10 13 = 1,N3 

WRITE CNPLOTX) (( X( 1 1 , 12) , 1 1 = 1 , N1 ) , 12 = 1 , N2 ) , 

$ C( YCI1, 12), 11=1, Nl), 12=1, N2), 

$ ((T AU (II, 12), 11=1, Nl), 12=1, N2) 

10 CONTINUE 


The Q file is written using: 


WRITE ( NPLOT ) N1,N2,N3 

WRITE (NPLOT) MACHR, AOA, RER, TDUM 

DO 20 13 = 1 , N3 

WRITE (NPLOT) ( ( (QPLOTC II , 12, I VAR) , 11=1 , Nl ) , 12=1 , N2) , IVAR=1,5) 
20 CONTINUE 


The parameters written into the file that have not yet been defined are: 

N3 Number of time levels written into the XYZ and Q files. 20 


19 Note that with IDTAL = 5 or 6, t will vary in space, and therefore t, ; ^ Tj x . 

20 Note that the number of time levels that end up being written into the files is not known until the end of the 
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TAU 

TDL'M 


l he time t, ,. 
Set equal to 0. 


Even though a time-dependent version of PLOT3D is not yet available, the I PLOT = -3 option allows 
plots to be generated at different time levels by plotting at different PLO 1 3D 2 stations. 

4.2.6 PI OT 2D Plot Files lIPUOT - 4) 

This option generates XYZ and Q files in PLO T3Ds 2D format. The XYZ file is written using the 
following Fortran statements: 


WRITE 

WRITE 


(NPIOTX) Nl , N2 

(NPLOTX) ((X(ll, 12), 11=1, Nl), 12=1, N2), 
(CY(I1, 12), 11=1, Nl), 12=1, N2) 


T he 0 file is written using: 


WRITE (NPLOT) N1,N2 

WRITE (NPLOT) MACHR , AOA , RER, TALK 1 , 1 ) 

WRITE (NPLOT) ( ( ( QPLOTdl , 12, IVAR) , 11 = 1 , Nl ) , 12 = 1 , N2) , IVAR=1 ,4) 


As in the I PLOT = 2 option, the above WRITE statements for the Q file are executed for each time level 
written into the file. The Q file thus consists of multiple sets of data, each containing the computed results 
at a single time level. I he XYZ file is written only once. 18 

All of the parameters written into the files arc the same as previously defined, except. 


QPI ,OT(„4) Total energy per unit volume Ii T MJ. 

Note that with this option, the swirl momentum pw is not written into the Q file. 


4.3 CONVERGENCE HISTORY FILE 

In Section 4.1.5, the convergence history' printout is described. The information in this printout is read 
from an unformatted convergence history' file that is updated whenever convergence is checked during a 
PROTEUS calculation. Plotting routines are also available at NASA Ixvvis to plot any of the convergence 
parameters as a function of time level. 

The file is w'ritten in subroutine RESID using the following Fortran statements. At the first time step 
of the run, 


WRITE ( NHIST ) 

$ 


Nl , N2 , NEQ, I DTAU , ICTEST , NITAVG, I SWIRL , IHSTAG, 
IAV2E, IAV4E,UR, LR, (EPS( IEQ) , IEQ=1 , NEQ) 


Then, at each time level that convergence is being checked, 


WRITE (NHIST) 
WRITE (NHIST) 

$ 

$ 


IT,TAU(1,1),ICHECK 

(CHGMAX( IEQ, 1 ) ,CHGAVG( IEQ) , RESL2( IEQ, 1 ) , 
RESAVG(IEQ,1), RESMAX( I EQ , 1 ) , 

L RMAX( 1 , 1 EQ , 1 ) , LRMAX( 2 ,IEQ,1),IEQ = 1,NEQ) 


Finally, again at each time level that convergence is being checked, but only for cases run with explicit ar 
tificial viscosity, 


WRITE (NHIST) 

$ 

$ 


(CHGMAX( IEQ, 1 ) , CHGAVGdEQ) , RESL2( I EQ , 2 ) , 
RESAVG( I EQ , 2 ) , RESMAX( I EQ , 2 ) , 

LRMAX( 1 , I EQ, 2 ) , LRMAX( 2, IEQ,2),IEQ=1,NEQ) 


PRO I LLS run. Therefore, the results are actually written to a scratch file. At the end of the calculation, when 
N3 is known, the scratch file is read and the XYZ and Q files are written. 
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The parameters written into the file are defined as follows: 


M 

N2 

NEQ 

IDTAU 

ICIEST 


NITAVG 


ISWIRE 

IIISTAG 

IAV2E 

IAV4E 

UR 

ER 

EPS(IEQ) 

IT 

TAU(I.l) 

ICIIECK 

CHGMAX(IEQ.l) 

CHGAVG(IEQ) 

RESL2(IEQ,IAVR) 

RESAVG(IEQ,IAVR) 

RESMAX(IEQ.IAVR) 

LRMAX(IDIR,IEQ,IAVR) 


Number of grid points A', in the £ direction. 

Number of grid points K 1 in the t] direction. 

I he number of coupled governing equations N eq being solved, 
flag for time step selection method. 

Flag for type of convergence test. 

Number of time steps used in the moving average convergence 
test. 

Flag for swirl in axisymmetric flow. 

Flag for constant stagnation enthalpy option. 

Flag for second-order explicit artificial viscosity. 

Flag for fourth-order explicit artificial viscosity. 

Reference velocity u r . 

Reference length L,. This is a type RFAF variable. 

Value £ used to determine convergence. 

Current time level n. 

C urrent value of the time marching parameter r, , at £ = »; = 0. 
Results are checked for convergence every ICIlFCK'th time level. 

Absolute value of the maximum change in the dependent variables 
from time level n — 1 to n. 

Average of the absolute value of the maximum change in the de- 
pendent variables for the last NITAVG time steps. 

The U, norm of the residual at time level n. 

The average absolute value of the residual at time level n. 

The maximum absolute value of the residual at time level n 

The grid indices (i,f) corresponding to the location of R mojt . 


In the above definitions, the subscript IEQ = 1 to N cq , corresponding to the N eq governing equations, 
IAVR — 1 or 2, corresponding to residuals computed without and with the artificial viscosity terms, and 
I DIR = 1 or 2, corresponding to the and tj directions. 


4.4 RESTART FI LES 


It's often necessary' or desirable to run a given case in a series of steps, stopping and restarting between 
each one. This may be done because of limitations in computer resources, or to change an input parameter. 
This capability is provided in PROTEUS through a restart option. With this option, the computational 
mesh and the computed flow field are written as unformatted output files at the end of one run, saved on 
a magnetic disk or tape, and read in as input files at the beginning of the next run. This process is controlled 
by the input parameters in namelist RSTRT. (See Section 3.1.3). 

The restart files are written and read in subroutine REST. The computational mesh is written using the 
following Fortran statements: 
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N3 = 1 

WRITE ( NRXOUT ) N1,N2,N3 

WRITE (NRXOUT) (( X(I1, 12), 11=1, Nl), 12=1, N2), 

$ (( YCI1, 12), 11=1, Nl), 12=1, N2), 

$ ((TAU(I1,I2), 11=1, Nl), 12=1, N2) 


The computed flow field is written using: 


N3 = 1 

WRITE (NRQOUT) 
WRITE (NRQOUT) 
WRITE (NRQOUT) 
WRITE (NRQOUT) 


Nl , N2, N3 

MACHR, AOA, RER, TLEVEL 
(((Q (11,12, I VAR) ,I1=1,N1) 
(((QL(I1,I2, IVAR) , 11 = 1 , Nl ) 


12=1, N2), IVAR=1,5) 
12=1, N2), IVAR=1,5) 


The parameters written into these files are defined as follows: 


NT 

N2 

X 

Y 

TAU 

MACHR 

AOA 

RER 

TLEVEL 


Number of grid points jV, in the £ direction. 

Number of grid points ;V 2 in the y\ direction. 

Cartesian x coordinate. 

Cartesian y coordinate. 

Computational time r. 

Reference Mach number, M r = uJ^Jy RT, . This is a type REAL variable. 
Set equal to 0. 

Reference Reynolds number, Re r = p r u r L r jp r . 

The current time level n . 


Q(»l) 

Q(n2) 

Q(»»3) 

Q(..4) 

Q(„5) 

QUJ-5) 


Static density p at time level n. 
x-momentum puM r at time level n. 
y or r*momentum pvM r at time level n. 

Swirl momentum pwM r at time level n. 

Total energy per unit volume E r M? at time level n. 
Same as Q(,,l-5), except at time level n — 1. 


Note that, except for the QL variables, these files have the same format as the XYZ and Q files created 
using the I PLOT = 2 and 3 options. These restart files can thus also be used as XYZ and Q files for the 
PLOT3D plotting program. Since N3 = 1, the QL variables will not be read by PLOT3D. Note also, 
however, that the reverse is not true. The XYZ and Q files created using the IPLOT = 2 or 3 option may 
not be used as restart files, since they do not include the QL variables. 21 


21 Actually, if the input parameters IPLT and IPLTA are such that only the final time level is written into the Q file, 
the XYZ and Q files may be used for an 'approximate" restart. In this case, PROTEUS will set QL = Q. 
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5.0 INITIAL CONDITIONS 


Initial conditions are required throughout the flow field to start the time marching procedure. Although 
the best choice for initial conditions will be problem-dependent, some general comments can be made. 
First, for unsteady flows they should represent a real flow field. A converged steady-state solution from a 
previous run would be a good choice. Second, to minimize the number of iterations required for steady 
flows, the initial conditions should be reasonably close to the expected final solution. An d third, to mini- 
mize problems with starting transients it is important that they represent a physically realistic flow\ 

Initial conditions may be supplied by a user-written subroutine, called I NIT, by a default version of 
IMF that specifies uniform flow with constant flow properties everywhere in the flow field, or by restart 
mesh and flow field files written during a previous run. 

5.1 USER- WRITTEN INITIAL CONDITIONS 

As stated above, the best choice for initial conditions will be problem-dependent. For this reason 
PROTEUS does not include a general-purpose routine for setting up initial conditions. Instead, provision 
is made for a user-written subroutine, called I NIT, that sets up the initial conditions. 

The time-marching algorithm used in PROTEUS requires initial conditions for p, u, v, w, £ r , p , and 
T. 22 These variables may, of course, be computed from many different combinations of known parameters. 
To make this process reasonably flexible, the user may choose from several combinations exactly which 
variables subroutine INTT will supply. This choice is determined by the input parameter ICVARS in 
namelist FLOW. The following tables list the flow field variables to be supplied by subroutine INIT for 
the various ICVARS options, along with the PROTEUS Fortran variables into which they should be 
loaded. 23 Remember that the initial conditions must be nondimensionalized by the reference conditions 
listed in T able 3-2. The default value for ICVARS is 2. 

When the energy equation is being solved (IHSTAG =0), and the flow is two-dimensional, or 
axisymmetric without swirl (IAXI = 0 or ISWIRL = 0), the allowed values are: 

ICVARS Variables Supplied By INTT Fortran Variables 

1 p, pw, pv, E t RHO, U, V, ET 

2 p, u, v, T P, U, V, T 

3 p, u, v, T RHO, U, V, T 

4 p, w, v, p P, U, V, RHO 

5 c„ w, v, T P, U, V, T 

6 p, M, a„, T P, U, V, T 

When the energy equation is being solved (IHSTAG = 0), and the flow is axisymmetric with swirl 
(IAXI = 1 and ISWIRL = 1), the allowed values are: 


22 Fewer variables may actually be needed, depending on the values of the input parameters IHSTAG and ISWIRL. 

23 Note that some input variables, like the Mach number M, are not normally saved as separate Fortran variables. 

To save storage they are to be loaded into existing Fortran variables in INTT. These Fortran variables will later 
be loaded with their normal values. _ 
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ICVARS 

Variables Supplied By INIT 

Fortran Variables 

1 

P, pw, pv, pw, E r 

RHO, U, V, W, ET 

2 

Pi w, v, w, T 

P, U, V, W, T 

3 

p, u, v, w, T 

RHO, U, V, W, T 

4 

p, u, V, W, p 

P, U, V, W, RHO 

5 

c p , u, v, w, T 

P, U, V, W, T 

6 

p, l/, a v1 a wt T 

P, U, V, W, T 

When constant stagnation enthalpy is assumed (IHSTAG 

= 1), and the flow is two-dimensional, or 

axisymmetric without swirl (IAXI = 0 or ISW1RL = 0), the allowed values are: 

ICVARS 

Variables Supplied By INIT 

Fortran Variables 

1 

p, pu, pv 

RHO, U, V 

2 

p , u , V 

P, U, V 

3 

p , w, V 

RHO, U, V 

5 

c p , v 

P. U, V 

6 

P, 

P, U, V 

When constant stagnation enthalpy is assumed (IHSTAG = 
(IAXI = 1 and ISWIRL= 1), the allowed values are: 

1), and the flow is axisymmetric with swirl 


ICVARS 

Variables Supplied By INIT 

Fortran Variables 

1 

p, pu , pv, pw 

RHO, U, V, W 

2 

p, u , v, w 

P, U, V, W 

3 

p, u % v, w 

RHO, U, V, W 

5 

C py u, V, w 

P, u, V, W 

6 

p } A/, a v , a w 

P, U, V, W 


In the above tables, c p , a vi and a w represent static pressure coefficient, flow angle in degrees in the x-y 
(or x-r) plane, and flow angle in degrees in the x-0 plane, respectively. These parameters are defined as: 

P-Pr 
C P 2 n 

Pr u rl 2 Sc 

, “I v 
ot v = tan — 


cl w = tan 


w 

u 


The PROTEUS subroutine INITC will use the variables supplied by subroutine I NIT to compute p, 
w, v, w, and £ r , using perfect gas relationships if necessary. From these variables, the pressure and temper- 
ature will then be recomputed using the equation of state in subroutine EQSTAT, overwriting any values 
specified by the user in I NIT. Phis ensures a consistent set of initial conditions for the time marching 
procedure. 

Subroutine INIT is called once, immediately after the input has been read, the reference and normalizing 
conditions have been set, and the geometry 7 and mesh have been defined. The user may do anything he or 
she desires in the subroutine, such as reading files, reading additional namelist input, making computations, 
etc. Any of the defined Fortran variables in common blocks may be used. 24 (Of course, they should not 
be changed.) The only requirement is that subroutine INIT return to the calling program (which is INITC) 
the combination of variables specified by ICVARS, defmed at every grid point. 


24 See Volume 3 for definitions of all the common block variables. 
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Subroutine IN 1 1 is also a convenient place to specify point-by-point boundary condition types and 
values. It s often easier to do this using Fortran coding rather than entering each value into the namelist 
input tile. See Section 9.2 for a test case with a user-written version of subroutine IMT. 

5.2 DEFAULT INITIAL CONDITIONS 

A default version of subroutine IMT is built into PROTEUS that specifies uniform flow with constant 
flow properties everywhere in the flow field. It uses the ICVARS = 2 option (the default value) and reads 
initial flow field values of p, u. v, iv, and /'from namelist IC. The defaults for these parainetersjire 1.0, 0.0, 
0.0, 0.0, and 1.0, respectively, resulting in an initial flow field with p = p r , u= v = w- 0, and T = 7,. If a 
value tor ICVARS other than 2 is set in the input, a warning message is generated and ICVARS is reset to 


5.3 RESTART INITIAL CONDITIONS 

It restart mesh and flow field files were created during a previous run by setting IRFST > 0 in namelist 
RS I R I , these files can be used to continue the calculation from the point where the previous run stopped 
In this case no subroutine INIT is needed. The restart case is run by linking the existing restart mesh and 
flow field tiles to Fortran units NRXIN and NRQIN, respectively, and setting IRFST = 2 in the input. 
New restart files will also be written to units NRXOUT and NRQOUT. 

When a restart case is being run. the usual namelist input described in Section 3.1 must still be read in. 
1 he following input parameters must have the same values as during the original run: UNITS, I AX I. 
IIIS I AG, I FA MV, ISWIRL, UR, UR, MACIIR, TR, RHOR, MUR, RFR, KTR, PR I R, GAMR. Rg| 
HSIAGR, M, N2, IPACK, and SQ. The remaining input parameters either may be changed during a 
lestart, or do not apply to a restart case. Note, however, that for many of the input parameters, such as 
those specifying the boundary conditions, changing values during a restart may result in temporary re- 
starting" transients or even cause the calculation to blow up. 
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6.0 RESOURCE REQUIREMENTS 


PROTEUS was developed on the Cray X-MP computer at NASA Lewis Research Center. Changes 
that may be necessary when porting the code to another system are described in Section 6.1. Sections 6.2 
and 6.3 discuss the memory and CPU time required to run the code. The values presented in these sections 
were derived from tests run on the NASA Lewis Cray X-MP in September, 1989. At that time the Cray 
was running UNICOS Version 4.0, CFT 1.15BF2, and CFT77 2.0. UNICOS, CFT, and CFT77 are de- 
scribed in the UNICOS User Commands Reference Manual (Cray Research, Inc., 1988c), the Fortran 
(CFT) Reference Manual (Cray Research, Inc., 1986), and the CFT77 Reference Manual (Cray Research, 
Inc., 1988a), respectively. Section 6.4 describes the si/e and format of the various input and output files 
used in the code. 

6.1 COMPUTER 


PROTEUS should be transportable to other computer systems with minimal changes. With just two 
known exceptions, the code is written entirely in ANSI standard Fortran 77. The first exception is the use 
of namelist input. With namelist input, it's relatively easy to create and/or modify input files, to read the 
resulting files, and to program default values. Since most Fortran compilers allow namelist input, its use 
is not considered a serious problem. The second exception is the use of *CALL statements to include 
COMDFCKs, which contain the labeled common blocks, in most of the subprograms. This is a Cray 
UPDATE feature, and therefore the source code must be processed by UPDATE to create a file that can 
be compiled. 25 UPDATE is described in the UPDATE Reference Manual (Cray Research, Inc., 1988d). 
Since using the *CALL statements results in cleaner, more readable code, and since many computer systems 
have an analogous feature, the *CALL statements were left in the program. 

Six library' subroutines are called by PROTEUS. ISAMAX, SASUM, and SNRM2 are Cray Basic 
Linear Algebra Subprograms (BLAS). IS AMIN is a Cray extension to the BLAS routines. SGEFA and 
SGFSL are Cray versions of UNPACK routines. These or similar routines may be available on other 
systems. If not, equivalent routines will have to be coded. All of these routines are described in detail in 
Section 4.0 of Volume 3, and in the Programmer's Library Reference Manual (Cray Research, Inc., 1988b). 

6.2 MEMORY 


The sizes of the dimensioned arrays in PROTEUS, and hence the amount of memory required to run 
the program, are set using PARAMETERS. These PARAMETERS are set in COMDECK PARAMS1. 
Larger or smaller dimensions may be set for the entire program simply by changing the appropriate PA- 
RAMETER, and then recompiling the entire program. The PARAMETERS are defmed as follows: 


NIP 

N2P 

NMAXP 

NTOTP 

NEQP 


NAMAX 


NBC 


Maximum number of grid points in the £ direction. The current value is 51. 
Maximum number of grid points in the direction. The current value is 51. 
Maximum of NIP and N2P. 

Total storage required for a single two-dimensional array (i.e. , NIP x N2P). 

Maximum number of coupled equations that can be solved. The current value is 
5. 

Maximum number of time steps allowed in the moving average convergence test 
(the ICTEST = 2 option). The current value is 10. 

Number of boundary conditions per equation. The current value is 2. 


a See the example in Section 8.1. PRECEDING PAGE BLANK MOT FILMED 
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NTP 


Maximum number of entries in the table of time-dependent boundary condition 
values. The current value is 10. 


NTSHQP Maximum number of time step sequences in the time step sequencing option. The 
current value is 10. 

The total amount of memory' in computer words required to run PRO' FEUS 2-D, compiled using 
CFT77, is listed in the following table for various combinations of the PARAMETERS NIP and N2P. 
On the Cray X-MP, each word is 64 bits long. If GET is used to compile the code, the memory' required 
to run is slightly less than the amount listed in the table. The figures in the table include approximately 
283,000 words used by the system software. 

NIP N2P 


26 26 

31 51 

101 101 

26 51 

26 101 

51 101 

63 ( Pl flMi: 

Compilation of PRO TIT S 2-D using Release 2.0 of the CFT77 compiler requires about 142 seconds 
of CPU time. Based on the results of the test cases in Section 9.0, the CPU time required for execution 
ranges from about 3 x 10 5 seconds per grid point per time step for runs using first-order time differencing 
without the energy equation, to 6 x 10 5 seconds per grid point per time step for runs using second-order 
time differencing with the energy equation. 


MEMORY 

479.744 
692,736 
1 ,561,088 
659 968 
1,331,712 
1,413,632 


The code can be compiled using Release 1.15BE2 of the CUT compiler in only 41 seconds. Experience 
has shown, however, that the CPU time required for execution then increases by a factor of 2 to 3. 

6.4 INPUT/Ol TPl T MI ES 

Several files are used in PROTEUS for various types of input and output. The contents of these files 
have been described previously in Sections 3.0 and 4.0. This section describes the characteristics of the files 
themselves. The files are identified by the Fortran variable representing the unit number. The unit numbers 
have default values, but all of them except NIN may be read in by the user. 

fable 6-1 lists the files used in PROTEUS, giving the default unit number, briefly describing the con- 
tents of the file, and indicating when it is used. Table 6-2 summarizes the computational resources needed 
for each file. In this table, the record length is specified in bytes for units NIN and NOUT, and in computer 
words for the remaining units. The total file size is specified in printed pages for unit NOUT, and in 
computer words for the remaining units. Several symbols and Fortran variables are used in fable 6-2, and 
are defined as: 

Y ;k 

v, 

v 

-V'h V2 
-V V* 

\ 1 » v 2 

ICHECK 


0 if explicit artificial viscosity is not being used, 1 if it is. 

The number of coupled equations being solved. 

The number of time levels written into the plot file. 1'his is determined bv the 
input parameters IPLT and 1PI TA. 

Hie time level at the beginning and at the end of the calculation. 

The number of grid points in the t] and ^ directions at which output is being 
printed. This is determined by the input parameters IPRT1, IPRT2. IPRT1A, and 
IPRT2A. 

The number of grid points in the £ and >1 directions. 

Input parameter specifying frequency for checking convergence. 
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IPLOT 
NG1, NG2 


Input flag specifying type of plot file being written. 

Number of points in the £ and >; directions in the coordinate system file. 


The typical record length and total size values listed in the table were computed assuming N„ = 1 , A f<J — 4, 
N, = 1 , A'„ = 1 , N a = 2000, A’, = A' { = 26, V, = ;V 2 = 51, ICHECK = 10, and NG1 = NG2 =51. 
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TABLE 6-1. - 10 FILE TYPES 


UNIT 

DEFAULT 
UNIT NO. 

RECORD 

FORMAT 

CONTENTS 

WHEN USED 

N1N 

5 

Formatted 

Standard input 

Always 

NOLI 

6 

Formatted 

Standard output 

Always 

NGRID 

7 

Unformatted 

Coordinate system input 

NGEOM = 10 

NPLOTX 

8 

Unformatted 

PLOT3D XYZ file output 

I PLOT = 2, 3, -3, 4 

NPLOT 

9 

Unformatted 

CONTOUR plot file or 
PLOT3D Q file output 

I PLOT 0 

NHIST 

10 

Unformatted 

Convergence history output 

Always 

NRQIN 

11 

Unformatted 

Restart flow field input 

1REST = 2 

NRQOUT 

12 

Unformatted 

Restart flow field output 

IREST =1.2 

NRXIN 

13 

Unformatted 

Restart computational 
coordinates input 

I REST = 2 

NRXOUT 

14 

Unformatted 

Restart computational 
coordinates output 

IREST =1,2 

NSCR1 

20 

Unformatted 

Scratch 

IPLOT = -3 
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TABLE 6-2. - I/O FILE SIZES 


UNIT 

MAXIMUM 
RliCORD LENGTH* 

TYPICAL 

MAXIMUM 

RECORD 

LENGTH* 

TOTAL SIZE b 

TYPICAL 

TOTAL 

SIZE b 

NIN 

80 

80 

Variable 

Variable 

NOUT 

132 


132 

~ 2A' + 3 pages + 

1 1 pages + 





{(\+3)[(A r ,-l)/10+ 1] 

2 pages per 





+2}/ 55 pages per variable 

variable per 





per time level 

time level 

NGRID 

2(NG1)(NG2) 

5,202 

2(NGl)(NG2) + 2 

5,204 

NPLO'EX 

I PI o r 







2, 3 

3A',A' 2 

7,803 

2, 3 

3 Vi A' 2 T 3 

7,806 


-3 

3A,Y 2 

7,803 

-3 

3A , A 2 A + 3 

7,806 


4 

2A : A' 2 

5,202 

4 

2A,Y 2 + 2 

5,204 

NPLOT 

ipi.or 



I PLOT 




1 

14.V 2 

714 

1 

(14A',A r 2 + 32);V, 

36,446 


-1 

1 4Y 2 

714 

-1 

(14AW + 5) A', 

36,446 






+ 27 



2, 3, -3 

5A',A 2 

13,005 

2, 3, -3 

(5A,A 2 + 7) Y, 

13,012 


4 

4A',A 2 

10,404 

4 

(4Y,Y 2 + 6)A f 

10,410 

MUST 

7A' 


28 

(N m + 1)(7A' )(A’ f2 - A r „ + 1) 

11,216 


eq 



/ICIIECK + N t „ + 12 


NRQIN, 

5V,.V 2 


13,005 

10,V,,V 2 + 7 

26,017 

NRQOUT 







NRXIN, 

3AvV 2 


7,803 

3 AW + 3 


7,806 

NRXOUT 







NSCR1 

6N v \' 2 

15,606 

6AWV 

15,606 


a In bytes for units NIN and NOUT, and in computer words for the remaining units. 
b In pages for units NIN and NOUT, and in computer words for the remaining units. 
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7.0 DIAGNOSTIC MESSAGES 


Various diagnostic messages may be printed by PROTEUS as part of its standard output. 26 Most of 
these concern inconsistent or invalid input, although some describe problems encountered during the cal- 
culation itself. Two types of messages may appear - errors and warnings. Error messages are preceded by 
the characters x*** ERROR, and indicate either a serious problem or an input error that PRO 1 M S cannot 
resolve. Warning messages are preceded by the characters xxxx WARNING, and indicate either a potential 
problem or a non-standard combination of input parameters. Errors cause the calculation to stop, while 
warnings do not. 

The various error and warning messages are listed and explained in the following two subsections. 
Power case letters, like value, are used to indicate variable values. 

7.1 ERRORS 

BOTH I TXI AND ITETA = 0. 

A turbulent flow is being computed, with flags set in namelist IT RB to bypass the turbulent 
viscosity computation in both coordinate directions. T his makes no sense. 

BOTH MACHR AND UR SPECIFIED. 

MACHR = value, UR = value 

bather the reference Mach number or velocity may be specified in namelist 1POW, but not both. 

BOTH PRLR AND KTR SPECIFIED. 

PRLR - value, KTR = value 

Hither the reference laminar Prandtl number or thermal conductivity may be specified in namelist 
HI OW, but not both. 

BOTH RER AND MUR SPECIFIED. 

RER = value, MUR = value 

bather the reference Reynolds number or viscosity may be specified in namelist PLOW, but not 
both. 

COORDINATE SYSTEM FILE HAS NG1 AND/OR NG2 > MAX ALLOWED. 

NG1 = value, NG2 = value 

A coordinate system file has been read in, using the NCJHOM - 10 option, with more grid points 
than allowed. The maximum allowed values of NCil and NG2 are the values of the Cray 
PARAMETERS NIP and N2P, respectively. 

GRID TRANSFORMATION JACOBIAN CHANGES SIGN OR = 0 . 

T he nonorthogonal grid transformation Jacobian J must be either everywhere positive or every- 
where negative. This error indicates that the computational mesh contains crossed or coincident 
grid lines. The error message is followed by a printout of the ('artesian coordinates, the Jacobian, 
and the metric coefficients. 


2t> The diagnostic messages described in this section are generated by the PROTEUS code itself, and appear as part 
of the standard output. Any computer system error messages due to floating-point errors, etc., are, of course, 
system -dependent. On UNIX-based systems, system errors will normally appear in the standard error file. 
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RAGE Uj INTENTIONALLY BLANK 


ILLEGAL OPTION FOR COMPUTATIONAL COORDINATES REQUESTED. 

NGEOM = value 

An illegal value of NGEOM has been specified in namelist GMTRY. The legal values are 1, 2, 
and 10, and are described in Section 3.1.5. 

ILLEGAL PLOT FILE OPTION REQUESTED. 

IPLOT = value 

An illegal value of IPLOT has been specified in namelist 10. Ilie legal values arc 0, ± 1 , 2, ± 3, 
and 4, and are described in Section 3.1.4. 

ILLEGAL TIME STEP SELECTION OPTION REQUESTED. 

IDTAU = value 

An illegal value of IDTAU has been specified in namelist T IME. The legal values are 1 to 7, and 
are described in Section 3.1.9. 

ILLEGAL VALUE FOR ICVARS. 

ICVARS = value 

An illegal value of ICVARS has been specified in namelist FLOW. The legal values are 1 to 6, and 
are described in Section 3.1.6. 

ILLEGAL VALUE FOR ILAMV . 

ILAMV = value 

An illegal value of ILAMV has been specified in namelist FLOW. The legal values are 0 and 1, 
and are described in Section 3.1.6. 

INVALID BOUNDARY CONDITION TYPE REQUESTED. 

J BC 1 ( i eq , i bound ) OR IBC1 ( j , ieq, ibound) = value 

INVALID BOUNDARY CONDITION TYPE REQUESTED. 

J BC2 ( i eq ; i bound ) OR IBC2C i , ieq, ibound) = value 

These messages result from an invalid boundary condition type being specified in namelist BC for 
the £ and or >j direction. Here ieq is the boundary condition equation number; ibound = 1 or 
2, corresponding to the £ = 0 or 1 surface, or the y\ = 0 or 1 surface; and i and j are the indices in 
the f and rj directions. The valid boundary conditions are listed in Table 3-6. 

INVALID BOUNDARY TYPE REQUESTED. 

KBCKibound) = value 

INVALID BOUNDARY TYPE REQUESTED. 

KBC2(ibound) = value 

T hese messages result from an invalid boundary type being specified in namelist BC, for the £ 
and/or rj direction, when the KBC meta Hags are used. Here ibound = 1 or 2, corresponding to 
the £ = 0 or 1 surface, or the rj — 0 or 1 surface. T he valid boundary types arc listed in Section 
3.1.7. 

INVALID DEBUG OPTION SPECIFIED. 

IDEBUGCi) 

An invalid debug option, number i, has been specified in namelist IO. The valid IDEBLCi options 
are 1 to 7, and are described in Section 3.1.4. 

INVALID GRID PACKING LOCATION FOR ROBERTS FORMULA. 

SQ(idir,l) = value 

An invalid grid packing location, given by the value of SQ(IDIR,1) in namelist NUM, has been 
specified. Here idir = 1 or 2, corresponding to the f and r} directions, respectively. The valid 
values are 0.0, 0.5, and 1.0. 
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INVALID GRID PACKING PARAMETER FOR ROBERTS FORMULA. 

SQ(idir,2) = value 

An invalid grid packing parameter, given by the value of SQ(IDIR,2) in namelist M M, has been 
specified. Here idir = 1 or 2, corresponding to the £ and directions, respectively. The valid 
values are > 1. 

INVALID TIME STEP SELECTION METHOD FOR TIME STEP SEQUENCING OPTION. 

IDTAU = value, NTSEQ = value 

A time step selection option that adjusts At as the solution proceeds has been specified in namelist 
TIME in conjunction with the time step sequencing option. If the time step sequencing option is 
being used, IDTAU must be 1,3, or 5. 

INVALID TYPE OF UNSTEADINESS FOR BOUNDARY CONDITION REQUESTED. 

JTBC1 ( i eq, i bound) = value 

INVALID TYPE OF UNSTEADINESS FOR BOUNDARY CONDITION REQUESTED. 

JTBC2( i eq, i bound ) = value 

These messages result from an invalid type of unsteadiness being specified in namelist BC for the 
boundary' conditions in the £ and/or r\ direction. Here ieq is the boundary condition equation 
number, and i bound = 1 or 2, corresponding to the £ = 0 or 1 surface, or the i/ = 0 or 1 surface. 
The valid values for JTBC1 and JTBC2 are 0, 1, and 2, and are described in Section 3.1.7. 

MESH SIZE REQUESTED > MAX ALLOWED. 

N1 - value, N2 = value 

More grid points have been requested in namelist NUM than are allowed. For non-periodic 
boundary conditions, the maximum allowed values of N1 and N2 are the values of the Cray 
PARAMETERS NIP and N2P, respectively. For spatially periodic boundary conditions, the 
maximum values are NIP —1 and N2P — 1. 

MORE TIME STEP SEQUENCES REQUESTED THAN ALLOWED. 

NTSEQ = value 

For the time step sequencing option, the number of time step sequences, specified in namelist 
TIME, cannot exceed the value of the Cray PARAMETER NTSEQP. 

NON-EXISTENT TURBULENCE MODEL REQUESTED 
ITURB = value 

A non-zero value for ITURB has been specified in namelist FLOW that docs not correspond to 
one of the turbulence models currently available in PROTEUS. The only valid non-zero value for 
ITURB is 1, corresponding to the algebraic Baldwin- Lomax turbulence model. 

NON-POSITIVE PRESSURE AND/OR TEMPERATURE AT TIME LEVEL n 

II 12 P T 

value value value value 

During the solution, a non-positive value for pressure and/or temperature has been computed in 
subroutine EQSTAT. Up to 50 values will be printed. These values, of course, are non-physical 
and indicate a failure of the solution. Although the calculation will stop, the standard output and 
plot file will include this time level, if that is consistent with the "IPRT" and TPLT" type parame- 
ters in namelist 10. T he restart files will not be written. This failure may be caused by bad initial 
or boundary conditions, or by too large a time step. 

NUMBER OF VALUES IN UNSTEADY BOUNDARY CONDITION TABLE > MAX ALLOWED. 

NTBC = value 

For unsteady boundary conditions, the number of values in the tables of GTBC1 and/or GTBC2 
vs. NTBCA, specified in namelist TIME, cannot exceed the value of the Cray PARAMETER 
NTP. 
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PERIODIC BOUNDARY CONDITION REQUESTED IN RADIAL DIRECTION IN AXISYMMETRIC FLOW. 
IAXI = value, KBC2C1) = value, KBC2C 2 ) = value 

A spatially periodic boundary,' condition in the radial direction in axisymmetric flow does not make 
sense physically. 

SINGULAR BLOCK MATRIX FOR B. C. AT LOWER BOUNDARY, SWEEP n 
SINGULAR BLOCK MATRIX FOR B. C. AT UPPER BOUNDARY, SWEEP n 

When boundary conditions are specified using the JBC and/or IBC input parameters, zero values 
may appear on the diagonal of the block tridiagonal coefficient matrix. Subroutine FILTER at- 
tempts to rearrange the elements of the boundary condition block submatrices to eliminate any of 
these zero values. These messages indicate it was unable to do so for the boundary and sweep in- 
dicated. This means the diagonal submatrix B is singular, which in turn means the specified 
boundary conditions are not independent of one another. 

SURFACE AND POINT-BY-POINT BOUNDARY CONDITIONS BOTH SPECIFIED. 

J BC1 ( i eq, i bound ) = value, IBC1 ( j , i eq, i bound) - value 

SURFACE AND POINT-BY-POINT BOUNDARY CONDITIONS BOTH SPECIFIED. 

J BC2 ( i eq , i bound ) = value, I BC2( i , ieq, i bound ) = value 

These messages indicate both surface and point-by-point boundary conditions were specified in the 
£ and/or >j directions. Each boundary condition on each boundary may be specified for the entire 
surface using the JBC? and GBC parameters, or on a point-by-point basis using the IBC and EBC 
parameters, but not both. Here ieq is the boundary' condition equation number; ibound = 1 
or 2, corresponding to the l = 0 or 1 surface, or the tj = 0 or 1 surface; and i and j are the indices 
in the ' and i; directions. A likely cause of this error message is specifying point-by-point boundary 
conditions without setting the appropriate JBC parameter equal to —1. See the discussion of 
boundary condition input in Section 3.1.7. 

7.2 WARNINGS 

CHGMAX > 0.15, CFL CUT IN HALF. 

CHGMAX > 0.15, DTAU CUT IN HALF. 

With the IDTAU = 2, 4, and 6 options, the time step is adjusted gradually as the solution proceeds 
based on the absolute value of the maximum change in the dependent variables. One of these 
messages may occur if the solution changes very' rapidly'. ( 1 he first message applies to the 
IDTAU = 2 and 6 options, and the second to the IDTAU = 4 option.) Under these conditions the 
time step is arbitrarily cut in half, and the solution continues. This may stabilize the calculation, 
but consideration should be given to rerunning the problem w'ith a smaller time step, especially for 
unsteady flows. 

ICVARS RESET TO 2 FOR DEFAULT INIT. 

The default version of subroutine INIT is set up assuming ICVARS = 2. If another value of 
ICVARS is read in, it is automatically reset to 2 and the calculation will contmue. 

ILLEGAL CONVERGENCE TESTING OPTION REQUESTED. 

ICTEST = value, RESET TO ICTEST = 3 

An illegal value of IC TEST has been specified in namelist TIME. ICTFS I will be reset to 3, 
corresponding to convergence based on the norm of the residual, and the calculation will con- 
tinue. The legal values are 1 to 5, and are described in Section 3.1.9. 

ILLEGAL OUTPUT REQUESTED. 

IVOUT(n) = value 

An illegal value of IVOUT has been specified in namelist IO. It will be ignored and the calculation 
will continue. The legal values of IVOUT are fisted in Table 3-3. 
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IMPLICIT a NONLINEAR EXPLICIT ARTIFICIAL VISCOSITY BOTH REQUESTED. 

IAV2I , IAV2E, IAV4E = value value value 
CAVS2I = value value value value value 

Normally, the nonlinear artificial viscosity model, specified by setting IAV2E and IAV4E = 2, is 
explicit only. This message is printed when implicit artificial viscosity is requested at the same time 
PROTEUS will assume that you know what you are doing and the implicit artificial viscosity will 

be included. 


NON-STANDARD TIME DIFFERENCE CENTERING REQUESTED. 

THC = value value 

THX = value value value 

THY = value value value 

THZ = value value value 

THE = value value value 


The BeamAVarming type time differencing used in PROTEUS includes three standard implicit 
schemes - Euler, trapezoidal, and three-point backward. This message indicates that a combination 
of time differencing parameters 0,, 0 2 , and 0, has been specified for at least one of the governing 
equations that does not correspond to any of the three standard schemes. PROTEUS will assume 
that you know what you are doing and the specified time differencing parameters will be use . 


SPATIALLY VARYING TIME STEP REQUESTED WITH TIME-ACCURATE DIFFERENCING SCHEME. 

IDTAU = value 

THC = value value 

THX = value value value 

THY = value value value 

THZ = value value value 

THE = value value value 

For steady flows, a spatially varying time step may be used to enhance convergence, and first -order 
time differencing is recommended. Using a second-order time-accurate differencing scheme should 
not give wrong results, but is wasteful. For unsteady flows, second-order time-accurate differencing 
should be used, but only a global (i.e., constant in space) time step makes sense. 


TIME LEVEL MAY FALL OUTSIDE RANGE OF INPUT TABLE FOR UNSTEADY B. C. 

ITSTRT = value, ITEND = value, NTBCA(l) = value, NTBCA(n) - value 

General unsteady boundary conditions are being used, and the time levels in the input table of 
GTBC1 and/or GTBC2 vs. NTBCA do not cover the time levels that will occur during the time 
marching loop. Here ITSTRT and ITEND are the first and last time levels in the tme marching 
loop, and n is the value of the input parameter N I BC. If the tune level n< N 1 BCA(l), the 
boundary condition value will be set equal to the fust value in the table. Similarly, if 
n > NTBCA(2), the value will be set equal to the last value in the table. 
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8.0 JOB CONTROL LANGUAGE 


At NASA Lewis, PROTEUS is currently being run on the Cray X-MP computer, with UNICOS 4.0 
as the operating system. In this section several general examples are presented showing the UNICOS job 
control language (JCL) that may be used as starting points when setting up specific cases. 27 The individual 
UNICOS commands are described in detail in the UNICOS User Commands Reference Manual (Cray 
Research, Inc., 1988c). These examples are written for the Bourne shell. Some changes may be necessary 
if the C shell is being used. These examples also use the Amdahl 5860 computer running VM as the front 
end to the Cray. It is assumed that the user is familiar with the procedures used to submit and receive Cray 
jobs through the VM Cray station. 

Each example is given with reference line numbers, which are not part of the actual JCL statement, 
followed by a line-by-line explanation. Note that in UNICOS, the case (upper or lower) of the letters in 
commands and arguments is significant. In this respect, the examples should be followed exactly. 

8.1 C OMPILING THE CODE 


In this example, the PROTEUS code is fetched from the front end and compiled on the Cray. The 
object code is then stored in the user's home directory on the Cray. It is assumed that the source code is 
in Cray UPDATE format, as described in the UPDATE Reference Manual (Cray Research, Inc., 1988d). 

1 . # USER^youri d PW = yourpw 

Z. i QSUB ~eo -1M l.OMw -IT 300 

3. i QSUB -r EXAMPLE 

4 . set -x 

5. fetch upinput -mUX - 1 r f n = f i 1 ename , f 1 = f i 1 etype 1 

6. update -i upinput -n $H0ME/p2dl 0 . u -c p2dlG -f 

7. cft77 -b $H0ME/p2dl 0 . o ~d pq p2dl0.f 

Lines 1 through 3 arc actually Cray Network Queueing System (NQS) commands, not UNICOS com- 
mands. They must appear first in the runstream, and begin with a # sign. This first line contains your 
userid and password, in lower case letters. 

Line 2 tells the Cray to put any system error messages into the standard output file (the -eo option), and 
sets the memory and CPU time limits for the job at 1.0 million words and 300 seconds. 

Tine 3 gives the name of the job as EXAMPLE. 

Tine 4 causes your UNICOS commands to be printed as part of the output runstream. 

Line 5 fetches the PROTEUS source code from VM, and stores it in a temporary Cray file called 
upinput. 2 * Filename and filetype are the file name and file type of the file stored on VM. 

Line 6 uses the Cray UPDATE facility to create a temporary file, p2dl0f, w ? hich contains the complete 
compilable Fortran code for PROTEUS, and a permanent file, p2dI0.u, which contains the PRO TEUS 
update program library and is stored in the user's home directory. The update command uses as input the 
file upinput. 

Line 7 compiles the program p2dl0.f storing the object code in the file p2d!0.o, in the user's home direc- 
tory. 


27 See Section 9.0 for specific examples of actual cases. 

28 In many UNIX environments, all files that are created become permanent. As implemented at NASA Lewis, 
however, in the Bourne shell batch jobs are executed from a temporary working directory that is removed when 
the job terminates. All files are thus temporary, unless the full path name of a permanent file is used, or unless they 
are explicitly saved by copying them into a permanent directory. 
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8.2 RUNNING THE MASTER FILE 


The simplest way to run PROTEUS is shown in this example. The existing master file is being used, 
without making any changes. 

1. # USER=yourid PW=yourpw 

2. # QSUB -eo -1M 1 . OmH -IT 60 

3. t QSUB -r EXAMPLE 

4 . set -x 

5 . ja 

6. fetch input -mUX -t 1 fn=filename, f t=filetype f 

7 . touch plotx 

8 . touch plotq 

9 . touch chist 

1 0 . touch rqout 

1 1 . touch rxout 

12. touch scrl 

13. In plotx fort. 8 

19. In plotq fort. 9 

15. In chist fort. 10 

16. In rqout fort. 12 

17. In rxout fort. 19 

18. In scrl fort. 20 

19. In $HOME/casename/coords fort. 7 

20. segldr -o p2dl0.e $H0ME/p2dl 0 . o 

21. p2dl0.e < input 

22. cp rqout $HOME/casename/rqin 

23. cp rxout $HOME/casename/rxin 

29. bintran -mUX -v plotq 

25. bintran -mUX ~v plotx 

26. bintran -mUX -v chist 

27 . ja -csl t 


Lines 1 through 3 are actually Cray Network Queueing System (NQS) commands, not UNICOS com- 
mands. They must appear first in the runstream, and begin with a # sign. This first line contains your 
userid and password, in lower case letters. 

Line 2 tells the Cray to put any system error messages into the standard output file (the - eo option), and 
sets the memory and CPU time limits for the job at 1.0 million words and 60 seconds. On the Cray under 
UNICOS, the standard output is preconnected to unit 6. Any system errors will thus be part of the normal 
PROTEUS output, as long as the input parameter NOUT — 6. 

Line 3 gives the name of the job as EXAMPLE. 

Line 4 causes your UNICOS commands to be printed as part of the output runstream. 

Line 5 tells the Cray to begin keeping accounting information for later printing. 

Line 6 fetches the standard PROTEUS input file, containing the job title and the namelist data, from VM, 
and stores it in a tempo rary Cray file called input. Filename and filetype are the file name and file type of 
the file stored on VM. 

Lines 7-12 create empty temporary files with the file names as shown. 

Lines 13-18 link these temporary files with the indicated Fortran unit numbers. The files are thus the 
PLOT 3D XYZ file, the PLOT3D Q file or CONTOUR plot file, the convergence history file, the restart 
flow field and mesh files, and the scratch file used with the IPLOT = —3 option. These lines implicitly open 
the files for input and output. Fortran OPEN statements are not used in PROTEUS. If the PROTEUS 
input is such that any of these files are unnecessary (see Table 6-1), then the touch and In for those files can 
be eliminated. 

Line 19 links an existing computational coordinate system file with Fortran unit 7. In this example, this 
file is assumed to be stored in your home directory , under the subdirectory casename. If the input parameter 
NGEOM # 10, this line should be eliminated. If a restart case is being run (IREST = 2), this line should 
be replaced by the following two lines: 

In $H0ME/casename/rqin fort. 11 
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In $HOME/casename/ rxi n fort. 13 


The above lines link existing restart flow field and computational mesh files with Fortran units 1 1 and 13. 
In this example, these files are assumed to be stored in your home directory, under the subdirectory 
casename . 

Line 20 creates a temporary executable file, pldlO.e, from the existing object file pldlO.o in your home di- 
rectory. 

Line 21 actually runs the program, getting the standard PROTEUS input from the temporary file input. 

Lines 22-23 save the temporary output restart flow field and mesh files by copying them into the files rqin 
and rxin m the subdirectory casename in your home directory. Note that this will overwrite the existing files 
with the same names. Use different file names if you need to keep the existing files also. If restart files are 
not written by your job, these lines should be eliminated. 

Lines 24-26 convert the indicated UXICOS unformatted files to VM unformatted files and dispose them 
to VM. Bintran is a local NASA Lewis command, not a standard Cray UNICOS command. The files will 
appear in your V\1 reader, along with the standard PROTEUS output. If these files arc ultimately to be 
used on some other computer (e.g., a graphics workstation), a different procedure or additional conversion 
steps may be required. If these files were not created by your job, or if you have no use for them on the 
front end, then these lines should be eliminated. 

Line 27 causes various accounting information to be printed at the end of your output. 

8.3 MODIFYING THE MASTER FILE, FULL UPDATE 


This example shows how to run with a temporarily modified version of the master file. In this particular 
case, the existing master file is modified to increase the Cray PARAMETERS NIP and N2P, thus allowing 
more mesh points to be used. Since this affects almost every subroutine, the entire program is updated and 
recompiled. 


1. # USER=yourid PW=yourpw 

2. t QSUB -eo -1M 1 . OmW -IT 300 

3. i QSUB -r EXAMPLE 

4. set -x 

5 . ja 

6. fetch input -mUX -t 1 f n=f i lename, f t=f i letype 1 

7 . touch plotx 

8. touch plotq 

9. touch chist 

10. touch rqout 

1 1 . touch rxout 

12. touch scrl 

13. In plotx fort. 8 

14. In plotq fort. 9 

15. In chist fort. 10 

16. In rqout fort. 12 

17. In rxout fort. 14 

18. In scrl fort. 20 

19. In $HOME/casename/coords fort. 7 

20. cat > mods << EOF 
*ID TEMP 

*D PARAMS1 . 19 

PARAMETER (NIP = 81, N2P = 81) 

21. EOF 

22. update -p $H0ME/p2dl 0 . u -i mods -c temp -f 

23. cft77 -d pq temp.f 

24. segldr -o temp.e temp.o 

25. temp.e < input 

26. cp rqout $HOME/casename/rqin 

27. cp rxout $HOME/casename/rxin 

28. bintran -mUX -v plotq 

29. bintran -mUX -v plotx 

30. bintran -mUX -v chist 

31. ja -cslt 
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I ines 1 through 3 are actually Cray Network Queueing System (NQS) commands, not UNICOS com- 
mands. I hey must appear first in the runstrcam, and begin with a # sign. This first line contains your 
userid and password, in lower case letters. 

I ine 2 tells the Cray to put any system error messages into the standard output file (the -eo option), and 
sets the memory and ( PI time limits for the job at 1.0 million words and 60 seconds. On the Cray under 
l NICOS, the standard output is preconnected to unit 6. Any system errors will thus be part of the normal 
PRO 1 1 LS output, as long as the input parameter XOUT = 6. 

1 ine 3 gives the name of the job as EXAMPLE. 

I ine 4 causes your l NICOS commands to be printed as part of the output runstream. 

I ine 5 tells the Cray to begin keeping accounting information for later printing. 

I me 6 letches the standard PROTEUS input file, containing the job title and the namelist data, from V\l, 
and stores it in a temporary Cray file called input. Filename and fdetype are the file name and file type of 
the file stored on V\l. 

Pines 7-12 create empty temporary files with the tile names as shown. 

I ines 13-18 link these temporary files with the indicated Fortran unit numbers. The files are thus the 
PI C) I 3D XXX file, the PI.013D Q file or CON I OUR plot file, the convergence history file, the restart 
How field and mesh files, and the scratch file used with the I PLOT = -3 option. These lines implicitly open 
the files for input and output. Fortran OPEN statements are not used in PROTEUS. If the PROTEUS 
input is such that any of these files are unnecessary (see Table 6-1), then the touch and In for those files can 
be eliminated. 

Line 19 links an existing computational coordinate system file with Fortran unit 7. In this example, this 
tile is assumed to be stored in your home directory', under the subdirectory casename. If the input parameter 
NGI.OM ^ 10, this line should be eliminated. If a restart case is being run (IREST = 2), this line should 
be replaced by the following two lines: 

In $HOME/casename/rqin fort. 11 
In $HOME/casename/rxin fort. 13 

I he above lines link existing restart flow field and computational mesh files with Fortran units 11 and 13. 
In this example, these tiles are assumed to be stored in your home directory, under the subdirectory 
casename. J 

I ine 20 creates a temporary' Cray file called mods. I he file will consist of all the records between line 20 
and line el, which contains the marker EOF . Your Cray UPDATE directives and new code should 
therefore be inserted between lines 20 and 21. Ihe UPDATE directives and new code could also be kept 
in a file on the Iront end machine, and fetched just as the input data file was in line 6. In that case, lines 
20 and 21 should be eliminated. 

Fine 22 uses the (.ray l PDA I F facility to create a temporary file, tcmp.f which contains the complete 
Poi trail code lor the modified version of PRO 11 US. The update command uses as input the existing 
PRO 1 IIS program library p2dl0.u, which is stored in your home directory, and the temporary’ file mods 
containing the l PDA 1 1 directives and new code. 

I me 23 compiles the modified program lemp.j \ storing the object code in the temporary' file temp.o. 

Fine 24 creates a temporary executable tile, temp.c, from the temporary object file temp.o. 

I me 25 actually runs the program, getting the standard PROTEUS input from the temporary’ file input. 

Fines -6-27 sa\c the temporary output restart flow field and mesh files by copying them into the files rqin 
and rxin in the subdirectory casename in your home directory. Note that this will overwrite the existing files 
with the same names. Use different file names if you need to keep the existing files also. If restart files are 
not written by your job. these lines should be eliminated. 

Fines <-8-30 con\crt the indicated U NICOS unformatted files to V\I unformatted files and dispose them 
to V\l. Biniran is a local NASA Lewis command, not a standard Cray UNICOS command. The files will 
appear in your VM reader, along with the standard PROTEUS output. If these files are ultimately to be 
used on some other computer (e.g., a graphics workstation), a different procedure or additional conversion 
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steps may be required. If these files were not created by your job, or if you have no use for them on the 
front end, then these lines should be eliminated. 

Line 31 causes various accounting information to be printed at the end of your output. 


8.4 MODIFYING THE MASTER FILL. PARTIAL UPDATE 

This example shows how to run with temporarily modified versions of just a few routines. In this par- 
ticular case, the default version of subroutine INIT is replaced by a user-supplied version, and an additional 
user-supplied geometry option is added to subroutine GEOM. Smce these changes affect only I. 

GEOM, only these subroutines are updated and recompiled. 


I. t USER=yourid PW=yourpw 

2 t QSUB -eo -1M 1 . OmW -IT 60 

3. t QSUB -r EXAMPLE 

9 . set -x 

5 33 

6. fetch input -mUX -t 1 f n=f i 1 ename, f t = f i 1 etype 1 

7 . touch pi otx 

8 . touch plotq 

9 . touch chist 

10. touch rqout 

I I . touch rxout 

12. touch scrl 

13. In plotx fort. 8 

19. In plotq fort. 9 

15. In chist fort. 10 

16. In rqout fort. 12 

17. In rxout fort. 19 

18. In scrl fort. 20 

19. In $HOME/casename/coords fort. 7 

20 . cat > mods << EOF 

*ID TEMP 
XPURGEDK INIT 
XDECK INIT 


user-supplied version of INI I goes here 

XI GEOM. 128 

new user-supplied geometry option goes here 

22 . '. update -p $H0ME/p2dl 0 . u -i mods -c temp -q GEOM INIT 

23. cft77 -d pq temp.f 

29. segldr -o temp. e temp, o $H0ME/p2dl 0 . o 

25. temp . e < input 

26. cp rqout $HOME/casename/rqin 

27. cp rxout $H0ME/casename/rxin 

28. bintran -mUX -v plotq 

29. bintran -mUX -v plotx 

30. bintran -mUX -v chist 

31 . ja -csl t 


Lines 1 through 3 are actually Cray Network Queueing System (NQS) commands, not UNICOS com- 
mands. They must appear first in the runstream, and begin with a # sign. This fust line contams your 
userid and password, in lower case letters. 

Line 2 tells the Cray to put any system error messages into the standard output file (the -eo option), and 
sets the memory and CPU time limits for the job at 1.0 million words and 60 seconds. On the Cray under 
UNICOS, the standard output is preconnected to unit 6. Any system errors will thus be part of the norm 
PROTEUS output, as long as the input parameter NOUT = 6. 


Line 3 gives the name of the job as EXAMPLE. 

Line 4 causes your UNICOS commands to be printed as part of the output runstream. 
Line 5 tells the Cray to begin keeping accounting information for later printing. 
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l ine 6 fetches the standard PROTEUS input file, containing the job title and the namelist data from V.Yt 

and stores it in a temporary Cray tile called input. Filename and file type are the tile name and file type of 
the rile stored on V M. 

Lines 7-12 create empty temporary tiles with the file names as shown. 

pmmvv^nSSm files with the indicated Fortran unit numbers. The hies are thus the 
n ' r 1 1 ' ) ^ y thc f 7 Q iJe or CON 1 OUR plot file, the convergence history file, the restart 
flovv field and mesh files, and the scratch file used with the IPLOT = -3 option. These lines implicitly open 
the files tor input and output. Fortran OPEN statements are not used in PROTEUS. If the PROTEUS 

input is such that any of these files are unnecessary (see Table 6-1), then the touch and In for those files can 
be eliminated. 

l ine Id links an existing computational coordinate system file with Fortran unit 7. In this example this 

o bC f° rCd t m h " me dirccto ^. under the subdirectory casename. If the input parameter 
MjFO.M f 10 this line should be eliminated. If a restart case is being run (I REST = 2), this line should 
be replaced by the lollowing two lines: 

In $HOME/casename/rqin fort. 11 
In $HOME/casename/rxin fort. 13 

I he above lines link existing restart flow field and computational mesh files with Fortran units 1 1 and 13. 

In this example, these tiles are assumed to be stored in your home directory, under the subdirectory 
case name. 

Fine 20 creates a temporary Cray file called mods. The file will consist of all the records between line 20 
and line a, which contains the marker "EOF". Your Cray UPDATE directives and new code should 
therefore be inserted between hnes 20 and 21. The UPDATE directives and new code could also be kept 

' ” a h c » n the front end machine, and fetched just as the input data file was in line 6. In that case lines 
20 and 21 should be eliminated. 

Fine 22 uses the Cray UPDATE facility to create a temporary file, temp./ which contains the Fortran code 

S f rn°s dlf ' ed versions of subroutmes CKOM and I NIT. The update command uses as input the existing 

cone, ini , ,7 h!"! p \ d/0u ’ ". hich 1S st ° rcd in > our home directory, and the temporary file mods 

containing the l PDA I h directives and new code. 

Fine 23 compiles the modified versions of GEO M and INIT, contained in the temporary file tempi storinu 
the object code in the temporary file temp.o. h 

1 IIU -‘. 24 creates a temporary executable file, lemp.e, from the temporary object file temp.o containing the 
modified versions of GbO.Vl and INI I , and from the existing object file p2dl0.o in your home directory. 

L ine 25 actually runs the program, getting the standard PROTEUS input from the temporary file input. 

Fines 26-27 save the temporary' output restart flow field and mesh files by copying them into the files rain 
and rxin in the subdirectory casename in your home directory. Note that this will overwrite the existing files 
\w n the same names. Use different file names if you need to keep the existing files also. If restart files are 
not written by your job, these lines should be eliminated. 

Ernes 28-3° convert the indicated UNICOS unformatted files to VM unformatted files and dispose them 
to V \1. Bmtran is a local NASA Lewis command, not a standard Cray UNICOS command. The files will 
appear in your \ M reader, along with the standard PROTEUS output. If these files are ultimately to be 
used on some other computer (e.g., a graphics workstation), a different procedure or additional conversion 
steps may be required. If these files were not created by your job, or if you have no use for them on the 
front end, then these lines should be eliminated. 

Ime 31 causes various accounting infonnation to be printed at the end of your output. 
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9.0 TEST CASES 


In this section, three test cases are described in detail. The first, developing Couette flow, is a time- 
accurate calculation of laminar flow generated in a channel by a moving wall. The second case is flow past 
a circular cylinder. Both inviscid and laminar viscous flow are computed. The third case is transonic tur- 
bulent flow in a converging-diverging channel. The discussion of each test case includes a description of the 
problem, listings of the PROTEUS input file and the JCL, a description of the standard PROTEUS output, 
and figures illustrating the computed results. All the cases were run on the NASA Lewis Cray X-MP 
running UNICOS 4.0 and using the Bourne shell. The code was compiled using Release 2.0 of CFT77. 

9.1 DEVELOPING COL K ITE FLOW 


Problem Description 

Couette flow is incompressible laminar flow between two infmite parallel walls, one at rest and one 
moving with velocity u w . Lor dpjdx— 0, the steady-state velocity profile is linear, as shown in Figure 9.1. 
In this test case the time-development of this flow was computed by starting with u = 0 everywhere, and 
suddenly accelerating the top wall to u = 





Figure 9.1 - Steady Couette flow with dpfdx = 0. 


Reference Conditions 

When setting up a problem for PROTEUS, it's usually convenient to first fix the reference conditions. 
For this case, an obvious choice for the reference length L r was the distance h between the two walls, which 
we set equal to 1 ft. Standard sea level conditions of 519 °R and 0.07645 lb m /ft 3 wxre used for the reference 
temperature and density. Since PROTEUS is a compressible code, incompressible conditions must be 
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simulated by running at a low Mach number. We therefore set the reference Mach number M r = 0.1. The 
reference velocity u r was then computed by PROTEUS from \l r . In setting up the boundary' conditions, 
described below, the velocity at the top wall was set equal to 1. Therefore, u r ~ — 0.1a, where a is the 

dimensional speed of sound. In order to reach steady state within a relatively small number of time steps, 
the reference Reynolds number Re r was set equal to 100.0. 

Computational Coordinates 

For this problem a simple Cartesian computational coordinate system can be used. As shown in Figure 
9.1, the physical (x -y) and computational (£-*/) coordinates are thus in the same directions. Since L r = h, 
the coordinate limits in the y direction were y mm = 0 and y max = I. The solution does not depend on x, so 
any limits could have been used in the x direction. Convenient values were x mm = 0 and x mffJ( = 1. 

Initial Conditions 

Constant stagnation enthalpy was assumed, so only three initial conditions were required. They were 
simply u — v = 0 and p = 1 everywhere in the flow field. 

Boundary Conditions 

Similarly, only three boundary conditions w r ere required at each computational boundary 7 . Since the 
solution is independent of x, constant pressure and zero velocity gradient conditions w'ere set at £ = 0 and 
f = 1. At both walls, the ^-velocity and the normal pressure gradient were set equal to zero. The 

x-velocity was set equal to zero at the lower wall and 1 at the top wall. These conditions are summarized 

in the following table. 

Boundary' Boundary Conditions 

£ = 0 du/d£ = dvjd^ — 0, p = 1 

( = 1 du/d£ = dvjd£ = 0, p = 1 

>7 = 0 u—v— 0, dpj dr] = 0 

>7=1 u = 1 , V = 0, dpj dr] = 0 

PROTEUS Input File 

The namelist input file for this case w r as called CFORM P2DIN0 and is listed below, along with a brief 
explanation of each line. The contents of this listing should be compared with the detailed input description 
in Section 3.0. 

UNSTEADY DEVELOPING COUETTE FLOW 
SRSTRT 
SEND 
&I0 

IV0UT=1,2,32, 47*0, 

IPRTA=1,3,9,33,73,129, 

IPRT1A=1,6,11, IPRT2=1 , 

IPL0T=-1 , 

IPLTA=3,9, 33,73, 129, 

SEND 
&GMTRY 
NGE0M=1 , 

XMIN = 0 . 0 , XMAX = 1 . 0 , 

YMIN=Q . 0 , YMAX=1 . 0 , 

SEND 
&FL0W 
IHSTAG=1 , 

MACHR= . 1 , RER=1 00 . , 

GAMR=1 . A, 

SEND 
&BC 

JBC1 ( 1 , 1 ) =A1 , JBC1 ( 1 , 2) =41 , GBC1 ( 1 , 1 ) = 1 . , GBC1 ( 1 , 2) = 1 . , p=la^ = 0,l. 


Not a restart case. 


Print u, v, c p . 

Time levels for printout. 

Print at 3 £ indices , all rj indices. 
Write CONTOUR plot file . 

Time levels for plot file. 

Cartesian computational coordinates, 
x-coordinate limits, 
y-coordinate limits . 

Constant stagnation enthalpy . 

Set M r and Re r 
Constant specific heats. 
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JBC1(2,1)=12, JBC1C2,2)=12, 
JBC1 ( 3 , 1 ) =22/ JBC1 (3,2) =22, 
JBC2C 1, 1)=42/ JBC2C1 , 2) =42, 
JBC2C2, 1 ) = 11, JBC2(2,2)=11, 
JBC2C3, 1 )=21, JBC2(3/2)=21, 
SEND 
SNUM 

Nl=ll, N2=21 , 

I AV4E= 0 , IAV2E=0, IAV2I=0, 

THC=1.0,0.5, 

THX=1.0,0.5,1.0, 

THY =1.0/0. 5*1.0^ 

&END 

&TIME 

IDTMOD=10QQ, 

IDTAU=3, DT = . 1953125 , 

NTIME = 1 000 ^ 

SEND 

&TURB 

SEND 

&IC 

SEND 


GBC1(2/1)=0./ GBC1 ( 2 , 2 ) =0 . , 
GBC1 ( 3> 1 ) = 0 . , GBC1 ( 3, 2 ) = 0 . , 
GBC2(1/1)=0., GBC2<1,2)=0./ 
GBC2C2, 1) = 0 . , GBC2(2,2)=1 . / 
GBC2C3, 1 ) = 0 . , GBC2C 3 , 2 ) = 0 . , 

Use an 11x21 mesh. 

No artificial viscosity . 

Second-order time differencing . 


Don't recompute At. 

Constant global At. 

Limit of 1000 time steps. 

Laminar flow. 

Use default initial conditions. 


duldS = 0at£ = Q, 1 . 
dvld£ = 0 at £ = 0, 1. 
dp/ dy = 0 at tf = 0, 1. 
w = 0, 1 a/ t] = 0, 1 . 
v = 0 at y\ = 0, 1. 


Note that since the defaults for IVOUT(4) and IVOUT(5) are 30 and 40, they are set to zero in namelist 
lO to avoid printout of the static pressure and temperature. The time levels specified for the printout and 
plot files correspond to the - time values used in a plot of an exact solution to this problem given by 
Schlichting (1968). Since the solution should not depend on x, only 11 points are used in the £ direction, 
and results are printed at only three £ indices. In namelist FLOW, the only specified reference conditions 
are MACHR and RER, since the desired values for the remaining ones are the same as the default values. 
I LA \1V is defaulted, resulting in constant viscosity ju and thermal conductivity k. In namelist BC, the JBC 
values corresponding to derivative boundary conditions are positive, specifying that two-point one-sided 
differences are to be used. In namelist NUM, the parameters I PACK and SQ are defaulted, which results 
in an evenly spaced mesh in both directions. The artificial viscosity is turned off because of the low 
Reynolds number. The second-order three-point backward- implicit time differencing scheme is being used 
because we want an accurate unsteady solution. 29 The time step size DT in namelist TIME is simply half 
of the first time value in the plot of the exact solution mentioned above, and corresponds to a CEL number 
of about 44. 30 


JCL 


The Cray UMCOS job control language used for this case is listed below. 

* USER=yourid PW= . 

« QSUB -eo -1M 1 . OmW -IT 60 

* QSUB -r CFORM 
set -x 

ja 

touch plot 
touch chist 
In plot fort. 9 
1 n chist fort . 10 

fetch input -mUX -t 1 f n=cf orm, f t=p2din0 1 
segldr -o temp.e $H0ME/p2dl 0 . o 
temp.e < input 
bintran -mUX -v plot 


29 It should be noted, however, that the incompressible governing equation for this flow is linear. It turns out that 
even first-order Euler-implicit time differencing gives accurate unsteady results. 

30 Smaller time steps were originally used, but it was found that equally good results could be obtained for this case 
with the input value shown here. 
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bintran -mUX -v chist 
ja -cslt 


This JCL is essentially the same as the example presented in Section 8.2, but with lines eliminated that 
are not applicable to this case. 


Standard PROTEUS Output 


The output listing is shown below. In the flow field printout, only the last time level is included. Note 
that a converged solution is obtained at time level 350, and that this level is automatically included in the 
standard output and in the plot file. 


NASA LEWIS RESEARCH CENTER 
INTERNAL FLUID MECHANICS DIVISION 
2-D PROTEUS VERSION 1.0 
SEPTEMBER 1989 


UNSTEADY DEVELOPING COUETTE FLOW 
8RSTRT 


IR EST = 0, NRQIN = 11. NRQOUT = 12, NR KIN = 13, NRXOUT = 14, SEND 

810 IDEBUG = 20*0, [PLOT = -1, IPLT = 0, IPLTA = 3, 9, 33, 73, 129 , 96*0, 
3. 9 ' 33, 73, 129, 95*0, IPRT1A = 1. 6, ll. 48*0, IPRT2A = l, 
14, 15, 16, 17, 18, 19, 20, 21, 30*0, IUNITS = 0, IVOUT = 1, 2, 

20. 8EN0 


IPRTA = 
12, 13 

NHMAX = 
8GMTRY 
YMAX = 


THMAX 


ICVARS 
. I , MUR 


2. 

0 . 0 , 


IEULER = 
PRLR = 


0, IHSTAG = 
0.0, RER = 


41. 12. 


100, NOUT = 6, NPLOT s 9, NPLOTX = 8, NSCR1 
IAXI =■ 0, NGEOM « 1, RMAX = 1.0, RMIN = 0.0, 

1.0, YMIN = 0.0, SEND 

8FLOW GAMR = 1.4, HSTAGR = 0.0, 

KTR = 0.0, LR = 1.0, MACHR = 0 

UR = 0.0, 8END 

SBC IBC1 = 510*0, IBC2 - 510*0, JBC1 * 41, 12, 22, 2*0 

2*0, FBC1 = 510*0.0, FBC2 = 510*0.0, GBC1 = 1.0, 4*0.0, 

JTBC2 = 10*0, NTBC = 0, NTBCA = 10*0, GTBCl s 100*0.0, 

8NUM ALPHA 1 = 0.5, ALPHA2 * 0.5, CAVS2E = 5*1.0, CAVS2I = 5*2 
1PACK = 2*0, N 1 a 11, N2 = 21, SQ = 2*0.0, 2*10000.0, 

1.0, THY = 1.0, 0.5, 1.0, THZ = 1.0, 2*0.0, 8END 
8TIME CFL = 10*1.0, CFLMAX = 10.0, CFLMIN s 0.5, CHG1 = 

DTF1 = 1.25, DTF2 = 1.25, DTMAX * 1.0E-02, OTMIN = l.OE-O^, 

IDTMOD = 1000, NDTCYC = 2, NITAVG = 10, NT I ME * 1000. 9*0, 
8TURB APLUS = 26.0, CB = 5.5, CCLAU = 1.68E-02, CCP * 16. 

CWK = 0.25, 1LDAMP = 1, INNER = 1, ITETA = 0, I TURB = 0. 
REXT1 = 0.0. REXT2 = 0.0, 8END 

NORMALIZING CONDITIONS 


90.0, THMIN = 0.0, 


1 . ILAMV = 0, 

100.0, RG s 1716.0, 


22 , 


r = l , 

3 , 4 , 

47*0, 

IPRT1 
5, 6 • 

NGRID 

= 1 , 
, 7, 

= 7 , 

IPRT2 = 1, 

8, 9, 10, 11 

NHTST = 10, 

XMAX = 

1.0, 

XMIN : 

= 0.0, 

I SWIRL 

= 0 , 

ITHIN 

= 2*0, 


RHOR = 7.645E-02, TR = 519.0 


JBC2 = 42, 11, 21, 2*0. 

1.0, 4*0.0, GBC2 = 6*0.0, 1.0, 3*0.0, JTBC1 ~ 

GTBC2 = 100*0.0, KBCl = 2*0. KBC2 = 2*0, SEND 

CAVS4E = 5*1.0, IAV2E s 0, I AV2 I = 0, 


THC s 


1 . 0 , 


0.5, 


0 . 0 , 


IAV4E = 


THE = 1.0, 2*0.0, THX = 1.0, 0.5, 


4.0E-02, CHG2 = 6.0E-02, DT = 0.1953125 

EPS = 5*1. 0E-03 , 

NTSEQ = 1 , SEND 

CKLEB = 0.3, CNA 

ITXI = 1 , I WALL 1 = 


9*1 . 0E-02 , 


I CHECK = 

10 . 

ICTEST = 3, 

1DTAU = 3, 

= 2.0, 
2*0, 

CNL = 
IWALL2 

1.7, CVK = 
= 2*0, PRT 

0.4, 

= 0.91, 


LENGTH, LR 
VELOCITY, UR 
TEMPERATURE, TR 
DENSITY, RHOR 
VISCOSITY, MUR 
THERMAL CONDUCTIVITY, KTR 
PRESSURE, RHOR* UR* *2 
ENERGY/ VOL . , RHOR * UR * *2 
GAS CONSTANT, UR**2/TR 
SPECIFIC HEAT, UR**2/TR 
STAGNATION ENTHALPY, UR«*2 
TIME, LR/UR 

REFERENCE CONDITIONS 


* 1 . 0000E* 00 FT 

* 1 . 1 166E+02 FT/SEC 
= 5 . 1900E+02 DEG R 

= 7. 645 0E- 02 LBM/FT3 
= 8.5366E-02 LBM/FT-SEC 
= 1.01 92E-0 1 LBM-FT /SEC 3- DEG R 
= 9 .532 1E*02 LBM/FT-SEC2 
= 9.5321E*02 LBM/FT-SEC2 
= 2 . 4024E* 0 1 FT2/SEC2-DEG R 
= 2 . 4024E+0 1 FT2/SEC2-DEG R 
s 1 . 24 68E + 04 FT2/SEC2 
= 8 . 9556E-03 SEC 


REYNOLDS NUMBER, RER 
MACH NUMBER. MACHR 
SPECIFIC HEAT RATIO, GAMR 
LAMINAR PRANDTL NUMBER, PRLR 
•‘REFERENCE" PRANDTL NUMBER, PRR 
SPECIFIC HEAT AT CONST. PRESS. 
SPECIFIC HEAT AT CONST, VOL. 

GAS CONSTANT, RG 
PRESSURE, PR 

STAGNATION ENTHALPY, HSTAGR 


l . 0000E*02 
1 .OOOOE-Ol 
1 . 4 000E* 00 
5 . 0306E*03 
2 . 0122E + 01 
6. 0060E*03 
4 . 2900E*03 
l . 7160E*03 
2. 1162E>03 
3 . 1233E+06 


FT2/SEC2-DEG R 
FT2/SEC2-DEG R 
FT2/SEC2-DEG R 
LBF/FT2 
FT2/SEC2 


8 1 C P0 


TO 


1.0, U0 = 0.0, V0= 0.0, H0= 0.0, SEND 


BOUNDARY CONDITION PARAMETERS 


JBC 1 (1 , 1) = 41 

JBC1 (2,1) = 12 

JBC 1(3,1 ) = 22 


X- VELOCITY 


GBCl(l.l) 
GBC1I2, 1 ) 
GBC1 (3, 11 


l . 0000E+00 
0 . 00D0E*00 
0. 0000E*OQ 


JBC 2 (1,2) = 
JBC2C2.2) = 
JBC2 (3,2) = 


JBC2 ( 1 , 1 ) = 
JBC2 (2,1) * 
JBC2C3, 1 J = 


42 GBC2 (1,2) 
11 GBC2 (2,2) 
21 GBC2 (3,2) 


62 GBC2U.1) 
11 GBC2 (2 , 1 ) 
21 GBC2 (3,1) 


= 0 . 0000E+00 
= 1.000QE+OQ 
= O.OOOOE+OO 


= O.OOOOE«-QO 
= 0 . 0000E + 00 

= 0 . OOOOE+OO 


JBC1 C 1 , 2 1 * 
JBC 1(2.2) * 
JBC1 (3,2) = 


4 1 GBC 1(1,2) 
12 GBC1 (2,2) 
22 GBC 1(3,2) 


= 1 . 0Q00E*00 

= 0 . OOOOE^OO 

= 0 . 0000E * 00 


AT TIME LEVEL 350, TIME = 6.1045E-01 SEC, DTIME = L.7491E-03 SEC 


1X1 

1ETA 

= 1 

6 

1 1 

21 

1 .0000E + 00 

1 . 00QQE* 00 

1 . OOOOE * 00 

20 

9.4988E-01 

9.4988E-01 

9 . 4988E-C1 

19 

8 . 9976E-01 

8 . 9977E-01 

8 . 9977E-01 

18 

8 . 4966E-0 1 

8.4966E-01 

8 . 4965E- 0 1 

17 

7. 9956E-01 

7 . 9955E-0 1 

7 . 9955E-0 1 
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1 b 

7.494 7E-01 

7.494 6E- 0 1 

7.4946E-Q1 

35 

6. 4Q39E-01 

6.993 9E- 0 1 

6 . 9938E- 0 1 

14 

6 .4O33E-01 

6 . 4 932E-0 1 

6 . 4932E-Q 1 

I 3 

5 . 9928E-0 1 

5 . 9928E-0 l 

5 . 9928E- 0 1 

12 

5 . 4 925E-0 1 

5 . 4 925E-0 1 

5 . 4925E- 0 1 

1 1 

4 .9924E-01 

4. 9924E-01 

4 . 9924E- 0 1 

10 

4 . 4 °25E- 0 1 

4 . 4925E-Q 1 

4 . 4 925E-0 1 

9 

3 . 992 7E-01 

3.9927E-01 

3 . 9927E-0 1 

8 

3.4932E-01 

3 . 4932E- 0 1 

3 . 4932E-01 

7 

2 . 9938E-01 

2. 9938E-01 

2. 9938E-01 

6 

2 . 4 94 6E - 0 1 

2.494 6E- 0 1 

2.4946E-01 

5 

1 . 9955E-01 

1 . 9 955E- 0 1 

1 . 9955E-01 

4 

1 . 4 965E- 0 1 

1 . 4965E-01 

1 .4965E-01 

3 

9 . 9762E-02 

9 , 9763E-02 

9.9765E-02 

2 

4 . 9880E- 02 

4 . 9880E-02 

4 . 988 1 E- 02 

1 

0 . OOOOE + OO 

0 . 000QE*00 

0 . OOOOE^OO 

DR 

R VELOCITY 

AT TIME 

LEVEL 350, 

[XI = 1 

i e r a 

6 

11 

21 

0 . 0000E*OO 

O.OOOOE'OO 

0 . 0000E + 00 

20 

-1 . 74S9E-08 

1 .9716E-07 

- 1 . 565 1 E- 07 

1 9 

- 8 . 558 7E-08 

5. 3278E-07 

-3 . 3265E-07 

18 

-1.1 763E-0 7 

7.3490E-07 

-4 . 7745E- 0 7 

17 

- 1 . 3302E-0 7 

6 . 3559E- 0 7 

-5.499 OE-O 7 

16 

- 1 . 263 IE-07 

3 . 07G7E-07 

-5. 7216E-07 

15 

- 1 . 1410E-07 

- 1 . 7 3 9 1 E- 0 7 

-5 . 1893E-07 

14 

-7 .8428E-08 

-7. 0845E-07 

-4. 1549E-Q7 

1 3 

-3.2256E-08 

- 1 . 2 344E-06 

-2. 7445E-07 

12 

2 . 4966E-08 

- 1 . 6908E-06 

-1 . 3457E-07 

1 1 

7.3243F-08 

-2 . 0 388E-06 

-1 .2009E-08 

1 0 

1 . 1215E-07 

-2.251 4E- 06 

7 . 3234E- 08 

<? 

1 . 3336E-07 

-2 . 3171E-06 

1 . 2360E- 0 7 

H 

1 . 45 7 3E- 0 7 

-2.241 6E-06 

1 . 3875E-07 

7 

1 . 4 9 1 2E- 0 7 

-2.03 3 0E- 06 

1 . 3171E-07 

6 

1 .5303E-07 

-1 . 7189E-06 

1 .0759E-0? 

5 

1 .508 lt-07 

-1 . 3 1 64E-06 

7 - 4553E-08 

4 

1 . 4 1 02E-07 

-8 . 7928E-0? 

3.5631E-08 

3 

1 .0 125b - 07 

-4 .471 5E- 0 7 

-4.8475E-09 

2 

4 . b? 1 4E- 08 

-1 . 3 38 6E-0 7 

-1 .6290E-08 

1 

0 . OOOOF *00 

O.QOOQE*QO 

0.0000E+00 


6.1045E-O1 SEC, DTIME 


1 , 749 1 E- 03 SEC 


STATIC PRESS. COEFF. AT TIME LEVEL 350, TIME * 6.1045E-01 SEC. DTIME = 1.7491E-03 SEC 


1X1= 1 

I ETA 

21 -2 . 0258E-G2 
20 -1.81 90E- 1 2 
19 -6 . 3665E- 12 
18 - 1 . 3642E- 1 l 
17 -2.2737E-11 
16 -3.2 742E- l 1 
15 -4.2746E- 1 1 
14 -5 . 2 75 IE- 1 1 
13 -5 . 9 1 1 7E- 1 1 
12 -6 . 3665E-J 1 
11 -6 . 4574E- 1 1 
10 -6.2755E-1 1 
9 -6.0027E-11 
8 -5. 184 IE- U 
/ -4.2746E-11 
6 -3.3651E-11 
5 -2.3647E-11 
4 -1 . 3642E- 1 1 
2 - 6 . 3665E- 12 
2 -1 .8190E- 12 
1 -2.0246E-02 


6 

-1 . 9536E- 02 

- 1 . 9536E-02 
-1 .9536E-02 

- I . 9536E-02 

- 1 . 9536E-02 
-1 . 9536E-02 

- 1 . 9536E-02 
-1 . 9536E-02 
-1 . 9536E-02 
-1 . 95 36E-02 
-1 . 9536E-02 
-1 .9536E-02 
-1 .9S36E-02 
-1 . 953 7E-02 
-1 . 9527E-02 

- 1 . 953 7E-02 
-1 . 953 7E-02 
-1 . 95 3 7E- 02 
-1 . 9537E-02 
-1 . 9537E- 02 
-1 -9537E-02 


11 

-2 . 0259E-02 
-9 . 0949E-13 
-6. 366SE-12 
-1 .4552E-U 
-2.2737E-1 1 
-3.1832E-11 
-4.2746E-11 
-5.275 IE- 1 1 
-5.911 7E- 1 1 
-6.2755E-1 1 
-6.4574E-11 
- 6 . 3665E- 1 1 
-5.9117E-11 
-5.275 IE-1 1 
-4 . 3656E- 1 1 
-3.2 742E- 1 1 
-2. 1828E- 1 1 
-1 .3642E-11 
-7 .2760E-12 
-9 - 0949E-13 
-2. 0246E-02 


CONVERGED SOLUTION AT TIME LEVEL 350 
STOP 


This case used 4.8 seconds of CPU time. 

Computed Results 

As noted earlier, an exact solution exists for this problem (Schlichting, 1968). T he solution is in the 
form of a series of complementary error functions, and is given by 31 

oo oo 

~ = £erfc[(2* + 1)*, -</>]- £erfc[(2/j + + *] 

71=0 71=0 

= erfc((£j — <f>) — erfc (4> { + <j>) + erfc(3</>j — <f>) — erfc(3 4> { + <f>) + 

where 


31 The solution presented by Schlichting is actually for a stationary top wall and moving bottom wall. The solution 
presented here, for a stationary bottom wall and moving top wall, was derived from it by replacing y with h — y. 
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4> = 

y 

\Re r 


2jvt 


4>\ = 

h 

- JW r 


2 4* 



The results computed using PROTEUS are com pared with the exact solution in Figure 9.2. The results 
are plotted at times corresponding to 4^/vT" jhjRe r = 0.25, 0.5, 1.0, 1.5, and 2.0, plus the steady state sol- 
ution. 



VELOCITY U/UW 

Figure 9.2 - Computed and exact solutions for developing Couette flow. 
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9.2 FLOW PAST A CIRCULAR CYLINDER 


Problem Description 

In the second test case, steady flow past a two-dimensional circular cylinder was investigated. Both 
Luler and viscous flow were computed. The geometric configuration (not to scale) is shown in figure 93. 



Figure 9.3 - Flow' past a circular cylinder. 


Reference Conditions 

The cylinder radius was used as the reference length L r , and was set equal to 1 ft. Standard sea level 
conditions of 519 °R and 0.07645 lbjft 3 were used for the reference temperature and density. In order to 
allow' comparison of the PROTEUS results with incompressible experimental data and with potential flow- 
results, the reference Mach number M r was set to the low value of 0.2. The reference velocity it. was then 
computed by PROTEUS from A/,. The experimental data w-cre taken at a Reynolds number based on 
cylinder diameter of 40. Since our reference length was the cylinder radius, the reference Reynolds number 
Re r was 20. 

Computational Coordinates 

For this problem a polar computational coordinate system was the obvious choice, f igure 9.3 shows 
the relationship between the physical Cartesian (x-y), physical polar (r-0), and computational (<;->/) coor- 
dinates. The coordinate limits in the r direction were r„ m = 1 and r m „ = 30. Since the flow is symmetric 
about the x axis, only the top half of the flow field was computed. I he limits in the 0 direction w ere thus 
0 min = 0° and 8 max = 180°. The £ = 0 and £ = 1 boundaries thus correspond to the 0 = 0° and 0 = 180° 
boundaries, respectively. The t) = 0 and t] = 1 boundaries correspond to the r— 1 and r — 30 boundaries. 
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Initial Conditions 


Constant stagnation enthalpy was assumed, so only three initial conditions were required. For the Euler 
flow case, uniform flow with u = 1, v = 0, and p = 1 was used. 


For the viscous flow case, the exact potential flow solution was used to set the initial conditions at all 
the non-wall points. Thus, with nondimensional free stream conditions o{o=u=T=d=\ 

u — 1 y C0S(2#) 

r 

v = \ sin(20) 


P = (pt)o o ~ y p 0 o( u2 + y2 ) 


where 


/ , . 1 P oo^oo 

(Woo - Poo + *2 ft 

Note that the nondimensional gas constant R appears in the above equation. This is a result of 
nondimensionalizing the initial condition for pressure by the reference pressure p r = p r RT r . (See Section 
3.1.1). At the cylinder surface, we set the velocities u and v equal to zero, and the pressure p equal to the 
pressure at the grid point adjacent to the surface. Thus, with two-point one-sided differencing, dpldn = 0 
at the surface. 


Boundary Conditions 


Again, since w T e assumed constant stagnation enthalpy, only three boundary conditions were required 
at each computational boundary. For the Euler flow case, symmetry conditions were used at £ = 0 and 
^ ~ 1- At rj = 0, the cylinder surface, the radial velocity and the radial gradient of the circumferential ve- 
locity were set equal to zero. The radial gradient of pressure was computed from the polar coordinate form 
of the incompressible radial momentum equation written at the wall. The equation is (Hughes and 
Gaylord, 1964) 


P v r 



+ 


P V Q 

r 


dv r _^ = 

dd p r ~ 


dp_ 

dr 


where v r and v e are the radial and circumferential velocities, respectively. At the cylinder surface v = 0 
Thus, at t] = 0, ’ ' 


dp Vo u 2 + v 2 
dr p r ~P r 


This must be transformed into computational coordinates using 

dp dp dq dp d£ 

dr dr] dr + d£ dr 


With the computational coordinate system being used for this problem, d^jdr = 0. The boundary condition 
in computational coordinates was thus 


dp = pvl / dr, \-> 

dr, \ dr J 


where, since x — r cos 0 and y = r sin 0, 
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dx + 

dx dr dy dr 

dr] drj . 

— — cos 0 + — — sin 0 
dx dy 

And finally, at r\ — 1 the free stream conditions were specified as boundary conditions. These conditions 
are summarized in the following table. 

Boundary Boundary Conditions 

£ = 0 duld£, v = 0, dpjdd, — 0 

\ ~ 1 Ou/0%, v = 0, dpjd£ = 0 

y\ = 0 V r = 0, = 0, dpi dr] = p\H{rd n ldr) 

r\— 1 w = 1, v = 0, p — 1 


<3r 


For the viscous flow case, symmetry conditions were again used at £ = 0 and £ = 1. At = 0, the cyl- 
inder surface, no-slip conditions were used for the velocity, and the radial pressure gradient was set equal 
to zero. The outer boundary, at r\ = 1, was split into an inlet region and wake region. The split was made, 
somewhat arbitrarily, at 6 = 45°. In the inlet region, the boundary values of u , v, and p were kept at their 
initial values, which were the potential flow values. In the w r ake region, the boundary values of p were kept 
at their initial values, and the radial gradients of u and v were set equal to zero. These conditions are 
summarized in the following table. 


Boundary 

« = 0 
«= 1 
>7 = 0 

Y\ — 1 (inlet) 
r] = 1 (wake) 

PROTEUS Input File for Euler Flow Case 


Boundary 7 Conditions 

du/d^ v = 0, dpldl = 0 
dujd\ y v = 0, dpjdl = 0 
u = v = 0, dpjdt] = 0 
Au = Av = Ap = 0 
duldr] = dvjdrj = 0, Ap — 0 


The namelist input file for the Euler flow case was called CYLPF P2DIN0 and is listed below, along 
with a brief explanation of each line. The contents of this listing should be compared wrth the detailed input 
description in Section 3.0. 


EULER FLOW PAST A CIRCULAR CYLINDER 
&RSTRT 
SEND 
&I0 

IVOUT =1,2^32/47x0, 

IPRT = 10000, 

IPRT1 =1 , IPRT2=2, 

IPL0T=-1, 

SEND 

&GMTRY 


Not a restart case . 


Print u, v, c p . 

Print every 10,000 time levels. 

Print at every £ index , every other r] index. 
Write CONTOUR plot file. 


NGE0M=2, 

RMIN= 1 . 0 , RMAX=30.0/ 
THMIN=0 . 0 , THMAX=180 . 0 , 
SEND 
&FL0W 
IEULER=1 , 

IHSTAG=1 , 

MACHR= . 2, RER=20 . , 

GAMR=1 .4/ 

SEND 

SBC 

JBC1 ( 1 , 1 ) =42, JBC1 ( 1 , 2) =42 
JBC1 (2, 1 ) =12, JBC1 ( 2/ 2)=12 


Polar computational coordinates . 
r- coordinate limits. 

Q -coordinate limits . 

Fouler flow calculation. 

Constant stagnation enthalpy . 

Set \1 r and Re r . 

Constant specific heats. 

GBC1 ( 1 , 1 ) =0 . , GBC1 C 1 , 2 ) = 0 . , 
GBC1 (2, 1 ) = 0 . , GBC1 ( 2/ 2 ) =0 . , 


dp/dt = 0 at£ = 0 , 1 . 
dujdZ = 0atZ = 0 y 1. 
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JBC1(3,1)=21, JBC1(3,2)=21, 
JBC2(1,1)=92, JBC2C 1,2) = 41 , 

J BC2( 2 , 1 ) =71 , JBC2(2,2)=11, 

J BC2( 3, 1 ) =77 , JBC2C 3, 2) =21 , 

SEND 

&NUM 

N1 =21 , N2=51 , 

IPACK(2)=1, 

SQ(2,1)=0., SQ(2,2)=1 .01, 
SEND 
&TIME 

IDTAU=5, CFL = 1 0 . , 

NTIME=1 000 , 

SEND 
&TURB 
SEND 
&IC 
U0 = 1 . , 

SEND 


GBCM3, 1) = 0 . 
GBC2C 1 , 1 ) =0 . 

GBC2( 2, 1 ) =0 . 

GBC2 ( 3 , 1 ) =0 . 


GBC1 ( 3 , 2 ) =0 . , 
GBC2C 1 , 2) =1 . , 

GBC2C 2, 2 ) = 1 . , 

GBC2C 3 , 2 ) =0 . , 


v = 0 at £ = 0 , 1 . 
dpi dt] = pvSUrdrj/dr ), 
p — 1 at rj = 0 , 1 . 

K. = o,m=i 

at n = 0 , 1 . 
dVJd>i = 0, v = 0 
at = 0 , 1 . 


Use a 21x51 mesh. 

Pack In >/ direction. 

Pack moderately tightly near yj = 0 . 


Spatially varying At. 
Limit of 1000 time steps. 

Laminar flow. 


Uniform flow initial conditions. 


In namelist IO, setting IPRT equal to a number larger than the number of time steps to be taken results 
in a printout at the initial and final time levels only. 

PROTEUS Input File for Viscous Flow Case 


The namelist input file for the viscous flow case was called CYLV P2DIN0 and is listed below, along 
with a brief explanation of each line. The contents of this listing should be compared with the detailed input 
description in Section 3.0. 


VISCOUS FLOW PAST A CIRCULAR CYLINDER 
&RSTRT 
SEND 
&I0 

IV0UT=1,2,32,47*0, 

IPRT=1000Q, 

IPRT1=2, IPRT2=2, 

IPL0T=-1, 

SEND 
SGMTRY 
NGE0M=2, 


Not a restart case. 

Print u, v , c p . 

Print every 10,000 time levels. 

Print at every other grid point in both directions. 
Write CONTOUR plot file. 

Polar computational coordinates. 


RMAX=30 .0, 
THMAX= 180 . 0 , 

RER=20 . , 


r-coordinate limits. 
0-coordinate limits. 

Constant stagnation enthalpy. 
Set M r and Re r . 

Constant specific heats. 


RMIN= 1 . 0 , 

THMI N= 0 . 0 
SEND 
8FL0W 
IHSTAG=1, 
MACHR=.2, 
GAMR=1 .4, 

8END 
&BC 

JBC1 ( 1 , 1 ) =42, 
JBC1 (2,1 ) = 12, 
JBC1(3,1)=21, 
J BC2C 1 , 1 ) =42, 
J BC2C 2 , 1 ) = 1 1 , 
J BC2 ( 3 , 1 ) =21 , 
SEND 
&NUM 


JBC1 (1,2) = 42 
J BC1 ( 2, 2 ) = 12 
JBC1 ( 3, 2 ) =21 


GBC1 ( 1 , 1 ) = 0 . , 
GBC1 ( 2, 1 ) = 0 . , 
GBC1 (3, 1 ) = 0 . , 
GBC2C 1 , 1 ) =0 . , 
GBC2C 2, 1 ) = 0 . , 
GBC2C 3, 1 ) =0 . , 


GBC1 ( 1 , 2) = 0 . , 
GBC1 ( 2 , 2 ) =0 . , 
GBC1 ( 3 , 2) =0 . , 


dpjd£ = 0 at { = 0, 1. 
dujdl = 0 at £ ~ 0 , 1 . 
v = 0 at £ = 0 , 1 . 
dpjdy / = 0 at y\ = 0 . 
u — 0 at >7 = 0 . 
v — 0 at rj = 0 . 


N1 = 51 , N2 = 51, Use a 5 1 x 5 1 mesh. 

IPACKC 2 ) = 1 , Pack in r\ direction. 

SQC2, 1 ) = 0 . , SQ( 2, 2) =1 . 001 , Pack fairly tightly near = 0 . 
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SEND 

&TIME 

IDTAU=5, CFL = 1 0 . , 
NTIME = 1 000 , 

SEND 

&TURB 

SEND 


Spatially varying At. 
Limit of 1000 time steps, 

Laminar flow. 


Note that in namelist BC, boundary conditions are not specified at the outer, or rj = 1, boundary. These 
conditions will be set in subroutine I NIT, as described below. 


JCL for Euler Flow Case 


The Cray UNICOS job control language used for the Euler flow case is listed below. 

t USER=youri d PW= . 

t QSUB -eo -1M 1 . OmW -IT 60 

t QSUB -r cyl 2 

set -x 

ja 

touch plot 
touch chist 
In plot fort. 9 
In chist f ort . 1 0 

fetch input -mUX -t 1 f n = cyl pf , f t=p2di nO ■ 

cat > mods << EOM 

XIDENT MODS 

XPURGEDK BCFLIN 

XDK BCFLIN 


SUBROUTINE BCFLIN ( I BC, I EQ , I BOUND, IMIN, IMAX,F, DFDRHO , DFDRU , DFDRV , 

$ DFDRW, DFDET, FBC) 

C 

C PURPOSE: THIS IS A USER-SUPPLIED SUBROUTINE USED IN CONJUNCTION 

C WITH THE GENERAL BOUNDARY CONDITION ROUTINE BCF CJBC 

C OR I BC OPTIONS 90-99). IT COMPUTES THE VALUES NEEDED 

C FOR LINEARIZATION OF THE BOUNDARY CONDITION (I.E., THE 

C VALUES OF THE FUNCTION F AND ITS DERIVATIVES WRT THE 

C DEPENDENT VARIABLES). NOTE THAT DIFFERENT USER-SUPPLIED 

C BOUNDARY CONDITIONS CAN BE USED AT DIFFERENT BOUNDARIES 

C THROUGH USE OF THE VALUES OF ISWEEP, IEQ, AND IBOUND. 

C 

C THIS VERSION SETS THE PRESSURE BOUNDARY CONDITION FOR 

C INVISCID FLOW OVER A CIRCULAR CYLINDER. THE PRESSURE 

C GRADIENT IN THE RADIAL DIRECTION IS SET EQUAL TO THE 

C CURVATURE TERM, RHQXVTHETA**2/R, IN THE RADIAL MOMENTUM 

C EQUATION. IN COMPUTATIONAL COORDINATES, THE B. C. IS 

C DP/DETA = RH0*VTHETA*X2/(RXDETA/DR) • 

C 

C CALLED BY: BCF 

C 

C CALLS: 

C 

C INPUT REQUIRED: 

C 

C DPDRH0, DPDRU, - DERIVATIVES OF PRESSURE WITH RESPECT TO 

C DPDRV, DPDET , RHO, RHO*U, RHQ*V, ET , AND RHO*W 

C DPDRW 

C 

C ETAX, ETAY - METRICS OF GRID TRANSFORMATION (I.E., 

C DERIVATIVES OF ETA WRT X AND Y) 

C 

C IBASE, ISTEP - BASE INDEX AND STEP FACTOR FOR 1-D INDEXING 

C OF 2-D ARRAYS 

C 

C I BC - BOUNDARY CONDITION TYPE FOR CURRENT SWEEP DIRECTION 

C 

C IBOUND - FLAG SPECIFYING BOUNDARY; 1 FOR LOWER, 2 FOR UPPER 

C 

C IEQ - BOUNDARY CONDITION EQUATION NUMBER (1 TO NEQ) 
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c 


C IMIN, IMAX - MINIMUM AND MAXIMUM INDICES IN SWEEP DIRECTION 

C 

C Nl, N2 - NUMBER OF GRID POINTS IN THE XI AND ETA DIRECTIONS 

C 

C P - STATIC PRESSURE 

C 

C RHG, U, V - DENSITY , X-VELOCITY, AND Y-VELOCITY 

C 

C X, Y - CARTESIAN COORDINATES 

C 

C OUTPUT COMPUTED: 

C 

C DFDRHGCIW), DFDRU(IW), - DERIVATIVES OF P WITH RESPECT TO 

C DFDRVCIW), DFDET ( IW) , RHO, RHO*U, RHO*V, ET, AND RHOXW 

C DFDRW(IW) 

C 

C DUMMY C I , J ) - A 2-D ARRAY (I = 1 TO Nl, J = 1 TO N2) 

C CONTAINING THE PRESSURE 

C 

C F(IW) - VALUES OF PRESSURE AT BOUNDARY (IW = 1), AT FIRST 

C POINT AWAY FROM BOUNDARY (IW = 2), AND AT SECOND 

C POINT AWAY FROM BOUNDARY (IW = 3) 

C 

C FBC - BOUNDARY CONDITION VALUES FOR CURRENT SWEEP DIRECTION 

C 

C COMMON BLOCKS 


XCALL PARAMS1 
XCALL DUMMY1 
XCALL FLOW1 
XCALL METRIC1 
XCALL NUM1 

DIMENSION IBCCNEQP,NBC),FBCCNEQP,NBC) 

DIMENSION F(3) , DFDRH0C3), DFDRUC 3) , DFDRVC 3) , DFDRWC 3 ) , DFDET ( 3 ) 
DIMENSION IIWC3), JJWC3) 

C 

C SET 1-D INDICES FOR WALL AND ADJACENT POINTS 

C 

IF ( I BOUND .EQ. 1) THEN 

IIW(l) = IBASE + ISTEPX(IMIN-I) 

I I W( 2 ) = IBASE + ISTEPXCIMIN ) 

I I W( 3 ) = IBASE + ISTEPXC IMIN+1 ) 

JJW(l) = IMIN 

JJWC2) = IMIN + I 

J JW( 3) = IMIN + 2 

ELSE 

IIW(l) = IBASE + ISTEPX(IMAX-l) 

I IW( 2 ) = IBASE + ISTEPXC I MAX- 2 ) 

IIWC3) = IBASE + ISTEPXC IMAX-3 ) 

JJW(l) = IMAX 

JJWC2) = IMAX - 1 

JJWC3) = IMAX - 2 

ENDIF 
C 

C SET F, DFDRHO, ETC., EQUAL TO PRESSURE AND ITS DERIVATIVES WRT 

C DEPENDENT VARIABLES 

C 

DO 10 IW = 1,3 
II = IIWCIW) 

JJ = JJWCIW) 

F( I W) = Pl(II) 

DFDRHOC IW) = DPDRHOC J J ) 

DFDRUC IW) = DPDRUCJJ) 

DFDRVCIW) = DPDRVCJJ) 

DFDRWC IW ) = DPDRWCJJ) 

DFDET ( IW) = DPDETCJJ) 

10 CONTINUE 

C 

C SET FBC EQUAL TO B. C. VALUE 

C 

II = IIWC1) 
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RADIUS = SQRT(Xl(II)xx2 + Yl(II)x*2) 

THETA = ATAN2(Y1(II),X1(II) ) 

DETADR = ETAXKII)XCOS(THETA) + ETAY1 ( I I ) XSINC THETA ) 
VTHSQ = Ul(II)xx2 + Vl(II)xx2 

FBC( I EQ , I BOUND) = RHOl ( 1 1 ) x VTHSQ/ RADI US/ DETADR 
C 

C AT BEGINNING OF SWEEP, FILL DUMMY IF SPECIFYING DF/DN 

C 

IF (IABS(IBC(IEQ, IBOUND) ) .NE. 93) RETURN 
IF ( I SWEEP . EQ . 1 .AND. I2.GT.2) RETURN 
IF ( I SWEEP . EQ . 2 .AND. 1 1 . GT . 2 ) RETURN 
DO 20 J = 1 , N2 
DO 20 I = 1,N1 
DUMMY ( I , J ) = P(I,J) 

20 CONTINUE 
RETURN 
END 

EOM 

update -p $H0ME/p2dl 0 . u -i mods -c temp -q BCFLIN 
cft77 ~d pq temp.f 

segldr -o temp. e temp.o $H0ME/p2dl 0 . o 

temp.e < input 

bintran -mUX -v plot 

bintran -mUX -v chist 

ja -cslt 


This JCL is very similar to the example presented in Section 8.4. In this test case, we are making a 
temporary change to the code by supplying a new version of subroutine BCFLIN to implement the 
boundary 7 condition for pressure at the cylinder surface. BCFLIN is used in conjunction with subroutine 
BCF for writing boundary conditions that are not among those already built into the code. These routines 
arc described in detail in Volume 3. For the current case, we set l p. dl jdp ~ dpjdf> t etc. FBC, the 
boundary 7 condition value, is set equal to pVyl(rdrildr). 

JCL for Viscous Flow Case 


T he Cray l NICOS job control language used for the viscous flow case is listed below. 

# USER^your i d PW= . 

# QSUB -eo -1M 1 . OmW -IT 60 

# QSUB -r cyll 
set -x 

ja 

touch plot 
touch chist 
In plot fort . 9 
1 n chist fort . 1 0 

fetch input -mUX -t ' f n=cyl v , f t=p2di nO 1 

cat > mods << EOM 

XI DENT NEWINIT 

XPURGEDK INIT 

XDECK INIT 


SUBROUTINE INIT 
C 

C PURPOSE: SET UP INITIAL FLOW FIELD FOR VISCOUS FLOW PAST A 

C CIRCULAR CYLINDER. THE EXACT POTENTIAL FLOW SOLUTION 

C IS USED AS THE INITIAL FLOW FIELD, EXCEPT AT THE 

C CYLINDER SURFACE WHERE THE VELOCITIES AND NORMAL 

C PRESSURE GRADIENT ARE SET EQUAL TO ZERO. THIS ROUTINE 

C IS ALSO USED TO SET POINT-BY-POINT BOUNDARY CONDITIONS 

C AT THE OUTER (ETA = 1) BOUNDARY. 

C 

C CALLED BY: INITC 

C 

C CALLS: 

C 

C INPUT REQUIRED: 

C 

C ICVARS - FLAG SPECIFYING WHICH VARIABLES ARE BEING SUPPLIED 

C AS INITIAL CONDITIONS 
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c 


C NEQ - NUMBER OF COUPLED EQUATIONS BEING SOLVED 

C 

C NOUT - UNIT NUMBER FOR STANDARD OUTPUT 

C 

C Nl, N2 - NUMBER OF GRID POINTS IN THE XI AND ETA DIRECTIONS 

C 

C RGAS - GAS CONSTANT 

C 

C X, Y - CARTESIAN COORDINATES 

C 

C OUTPUT COMPUTED: 

C 

C IBC2(I1,IEQ,2), - POINT-BY-POINT BOUNDARY CONDITION TYPES 

C FBC2CI1,IEQ,2) AND VALUES AT ETA = 1 BOUNDARY (II = 1 TO 

C Nl, IEQ = 1 TO 3) 

C 

C JBC2(IEQ,2) - SURFACE BOUNDARY CONDITION TYPES AT ETA = 1 

C BOUNDARY (IEQ = 1 TO 3) 

C 

C P, U, V - INITIAL FLOW FIELD VALUES OF PRESSURE, X-VELOCITY, 

C AND Y-VELOCITY 

C 


XCALL PARAMS1 
XCALL BC1 
XCALL FLOW1 
XCALL GMTRY1 
XCALL 101 
XCALL METRIC1 
XCALL NUM1 
C 

C CHECK FOR ILLEGAL ICVARS OPTION (THIS ROUTINE ASSUMES ICVARS = 2) 

C 

IF (ICVARS .NE. 2) THEN 
ICVARS = 2 
WRITE (NOUT, 10) 

10 FORMAT C/ f xxxx WARNING - ICVARS RESET TO 2 IN SUB. INIT. 1 ) 

ENDIF 

C 

C SET FREESTREAM CONDITIONS 

C 

UINF = 1. 

RHOINF = 1. 

TINF = 1. 

PINF = RHOINFXTINF 

PTINF = PINF + 0.5XRHOINFXUINFXX2/RGAS 

GAMMA = 1 . 4 

C 

C SET INITIAL FLOW FIELD AROUND CYLINDER EQUAL TO EXACT POTENTIAL 

c FLOW SOLUTION 

C 

DO 100 12 = 2 , N2 
DO 100 II = 1 , Nl 

RADIUS = SQRT(X(I1, I2)xx2 + Y(I1,I2)XX2) 

THETA = ATAN2(Y(I1, I2),X(I1,I2)) 

U( I 1 , 12) = -( COS( 2 . OxTHETA )/( RADIUSXX2 ) - 1.0)XUINF 
VC II , 12) = “(SIN(2.0XTHETA)/(RADIUSXX2) )xUINF 

PC 1 1 , 12) = PTINF - 0.5XRHOINFXCUCI1, 12)XX2 + VC II , I2)xx2)/RGAS 
100 CONTINUE 
C 

C SET NO-SLIP AND ZERO GRADIENT CONDITIONS AT CYLINDER SURFACE 

C 

DO IIO II = 1 , Nl 
UC 1 1 , 1 ) = 0.0 
VCI1,1) = 0.0 
PC 1 1 , 1 ) = PC 1 1 , 2) 

110 CONTINUE 


C 

C SET JBC = -1 FOR OUTER BOUNDARY TO SIGNAL USE OF POINT-BY-POINT 

C BOUNDARY CONDITIONS 

C 
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DO 200 IEQ = 1, NEQ 
J BC2 C I EQ , 2 ) = -1 
200 CONTINUE 

C 

C SET POINT-BY~POINT BOUNDARY CONDITIONS AT OUTER BOUNDARY 

C 

NNAKE = Nl/4 

C IN WAKE REGION 

DO 210 II = 1 , NWAKE 
I BC2 ( 11,1,2) = 40 
IBC2(I1,2,2) = 12 
IBC2(I1,3,2) = 22 
FBC2(I1,1,2) = 0. 

FBC2(I1,2,2) = 0. 

FBC2 ( 11,3/2) = 0. 

210 CONTINUE 

C IN INLET REGION 

DO 220 II = NWAKE+1 , N1 
I BC2 C 11,1/2) = 40 
IBC2(I1,2,2) = 10 
I BC2 ( 11,3,2) = 20 
FBC2(I1,1,2) = 0. 

FBC2C 11,2,2) = 0. 

FBC2(I1,3,2) = 0. 

220 CONTINUE 

RETURN 
END 

EOM 

update -p $H0ME/p2dl 0 . u -i mods -c temp -q INIT 
cft77 -d pq temp.f 

segldr -o temp. e temp. o $H0ME/p2dl 0 . o 

temp.e < input 

bintran -mUX “V plot 

bintran -mUX -v chist 

ja -cslt 


This JCL is also very similar to the example presented in Section 8.4. In this case, we are making a 
temporary' change to the code by supplying a new version of subroutine INIT to set the initial conditions 
described earlier. The procedure for using user-written initial conditions is described in Section 5.1. 

Note that in this case we are also using subroutine INIT to set point-by-point boundary' condition types 
and values at the outer (>/ = 1) boundary. It's often easier to set point-by-point boundary conditions in 
Fortran rather than in the namelist input file. 


Standard PROTEUS Output for Euler Flow Case 

The output listing for the Euler flow case is shown below. In the flow field printout, only the last time 
level is included. Note that a converged solution is obtained at time level 210, and that this level is auto- 
matically included in the standard output and in the plot file. 

NASA LEWIS RESEARCH CENTER 
INTERNAL FLUID MECHANICS DIVISION 
2-D PROTEUS VERSION 1.0 
SEPTEMBER 1989 


EULER FLOW PAST A CIRCULAR CYLINDER 

SRSTRT IREST = 0. NRQIN = 11, NRQOUT = 12, NRXIN = 13, NRXOUT = 14, SEND 

SIO IDE8UG = 20*0 > IPLOT = -1, IPLT = 0, IPLTA = 101*0, IPRT = 10000. IPRT1 = 1, IPRT2 = 2, IPRTA = 101*0, 

IPRT1A = 1, 2. 3. 4, 5, 6, 7, 8, 9, 10, ll» 12, 13, 14, IS, 16. 17, 18, 19. 20, 21, 30*0, 1PRT2A =1,2 
4, 6, 8, 10, 12, 14, 16, 18, 20, 22, 24, 26. 28, 30, 32. 34. 36, 38, 40, 42, 44, 46, 48, 50, 51, 24*0. 
IUNITS = 0, IVOUT = 1, 2, 32, 47*0, NGRID = 7, NHIST = 10, NHMAX = 100, NOUT = 6, NPLOT = 9, NPLOTX = 8, 

NSCR1 = 20, SEND 

8GMTRY I AX I = 0, NGEOM = 2. RMAX = 30.0, RMIN = 1.0, THMAX = 180.0, THMIN = 0.0, XMAX = 1.0, XMIN = 0.0, 

YMAX = 1.0, YM IN = 0.0, SEND 

&FL0W GAMR = 1.4, HSTAGR = 0.0, ICVARS = 2. IEULER = 1. IHSTAG = 1, ILAMV = 0, ISWIRL = 0, ITHIN = 2*0, 


KTR 

= 0.0, 

LR = 1 

[ . 0 , MACHR = 0.2, MUR 

= 0.0, PRLR = 0.0, 

RER = 20.0, 

RG = 

1716.0, 

RHOR = 

7 . 645E-02 » 

TR = 

519.0, 

UR = 

SBC 

0.0, 
IBC1 = 

SEND 

510*0, 

I BC2 = 510*0, JBC 1 = 

42, 12, 21. 2*0, 

42, 12, 21, 

2*0. 

JBC2 = 

92, 71, 

77, 2*0. 

41 , 

11 , 21 


2*0, FBC I = 510*0.0, FBC2 = 510*0.0, GBC1 = 10*0.0, GBC2 = 5*0.0, 2*1.0, 3*0.0, JTBC1 = 10*0, JTBC2 = 10*0, 

NTBC = 0, NTBCA = 10*0, GTBC1 = 100*0.0, GTBC2 = 100*0.0, KBC1 = 2*0. KBC2 = 2*0, SEND 

SNUM ALPHA 1 = 0.5, ALPHA2 = 0.5, CAVS2E = 5*1.0, CAVS2I = 5*2.0, CAVS4E = 5*1.0, IAV2E = 0, IAV2I = 1. IAV4E = 1 
IPACK = 0, I, N 1 = 21. N2 = 51, SQ = 2*0.0, 10000.0, 1.01, THC = 1.0, 2*0.0, THE = 1.0, 2*0.0, THX = 1.0, 


PROTEUS 2-D User's Guide 


Test Cases 91 


original page is 
OF poor Quality 


2*0.0, THY - 1.0. 2*0.0= THE = 1.0. 2*0.0. SEND 

&TIME CFL = 10.0. 9*1.0, CFLMAX 10. 0. CFLM1N - O.b, CHG1 - 4.0E-02, CHG2 = 6.0E-Q2. DT = 10M.0E-G2, DIM 

1 . 25 , 

DTF2 = 1.25, D T MAX - 1.0E-02- DTMIN 1.0F-02, EPS = 5*1 .OE-03, ICHECK = 10. ICIEST = 3, I DTAU - 5. 1 0 1 HOD ^ 1- 

NDTCYC - 2. NITAVG = 10, N F I ME - 1000, 9*0. NTSEO - !, SEND 

STURB APLUS = 2t>.0- CB - 5.5, CClAu - 1 . b8E- 02 . CCP - 1 . t> , CKLEB = 0.3, CNA - 2.0, CNL = 1.7, CVK ^ 0.4, 

CWK - 0.25. 1 L. DAMP - 1. INKER - 1, ITt.TA = 0, ITURB - 0, HKI -= 1, lWALl.1 = 2*0, IWALL2 - 2*0= PRT - 0.91. 

REXT1 - 0.0, REX f 2 = 0-0- SF Nli 

NORMALIZING CONDITION:;; 

LENGTH- LR - 1 . O00OE*O0 FT 

VELOCITY, DR -■ 2.23i2E*02 FT /SEC 

TEMPERATURE, TR = 5.1?00E*02 DEG R 

DENSITY. RMOR - 7.b450E-32 LBM/FTJ 

VISCOSITY. MUR = 8.S3bbE-0i L BM/FT-SEC 

THERMAL CONDUCTIVITY. K TR = 1.01 S »2E-01 LBM-FT/SEC3-DEG R 

PRESSURE, RHOR * UR » * 2 = 3.8I29E*03 L.BM/F T- SEC2 

ENERGY/VOL.. RHOR*UR**2 - 3.B129SXJJ l.BM/FT SFC2 

GAS CONSTANT. UR**Z/rR = 9 . oU 9oE * 0 1 C TZ /SEC 2 - DEG R 

SPECIFIC HEAT- U«-*Z^TR = 9 . r, 0 q t>E * 0 1 PT2/SEC2 DEG H 

STAGNATION ENTHALPY- UR**2 = 4.98?4E*04 FT2/SEC2 
TIME. LR/UR - 4 . 4 7 78F - - 0 3 SFC 

REFERENCE CONDITIONS 

REYNOLDS NUMBER. RfcR 2.0000L*01 

MACH NUMBER. MACHR - 2-0000E-01 

SPECIFIC HEAT RATIO. GAMR - 1.4000E*00 

LAMINAR PRANDTL NUMBER, PRL R - 5 . 0 3UoE • 04 

••REFERENCE" PR AND T l NUMBER. PRR 8.048 96. *02 

SPEC I F I C HFA T AT C ONS ■ . p R F S S . b . 0 0 * Of! *03 FT.' / SFC 2 - DFlT R 

SPECIFIC HEAT AT CONS I . Vflt . - 4.2900E’Oi i ! 2 / S; C2- DF G R 

GAS CONSTANT. KG - l./2bCE*33 TT2/SLC2 DEG R 

PRESSURE, PR - 2 . i I »2E 4 03 LBF/FT2 

STAGNATION ENTHALPY. hCTAUR = 3.142lF*0t» FT2/3EC2 

SIC P0 = 1.0. TO = 1.0, U0 -- l.o, V 0 - 0.0. WO - 0.0, SEND 

BOUNDARY CONDITION PARAMETERS 







lBt:2 ( 1 ,2 ) 

= 41 

GBC2U ,2 ) 

= 1 . 0000F + 00 









JBC 2 (2,2 ) 

= 1 1 

GBC 2 1 2 . 2 ) 

= 1 . OOOGE* 00 









t BC 2(3.2) 

= 2 1 

GBC 2 C 3 . 2 ) 

= 0 . OOOOE + OO 




J8C1 (1,1) ^ 

42 

GBL III- 

. 1 J 

= o.ooooe*o(t 





JBC 1(1,2) = 42 

Geci (1,2) 

= O.OOOOC'OO 

JBC 1 ( 2 , 1 ) - 

12 

GBC1 C 2 , 

. 1 ) 

- 0.3GBOr*00 





JBC 1(2,2) = 12 

GBC I (2.2) 

= 0 . 0 0 GOE* 0 0 

JBC 1(3,1) - 

2 1 

GBC 113. 

. i ) 

- 0 . OOuGF ♦ 00 

JBC2 (1,1) 

- 92 

GBC2 ( 1.1) 

= 0 . 0 0 0 OE * 00 

JBC 1(3,2) = 21 

GBC 1 (3.2) 

= 0 . 0 0 0 OE* 0 0 






.JBC212 , 1 ) 

7 1 

GBC2 ( 2 , 1 ) 

= 0 . 0 0 0 OE ♦ 00 









JS.ii- .2 «. Z 1> 

■ 77 

GEC2 ( 3 . 1 ) 

- 0 . 00 0 OE + 00 




X-VELOC I TY 


A f 1 

' I ME 

LEVE1 210 








IXI - 1 

I ETA 

1 

2 


3 

* 


5 

b 7 

8 

9 

10 


5 1 

1 . GOGOL* 00 

1 . OOQOE * 00 

1 . OOOOF *00 

1 . O0OQE*O0 

1 . OOOOF ♦ 00 

1 . 0 0 0 OE * 0 0 

1 . 0000E*00 

1 . OOOOE + 00 

I . 0 0 00E + 00 

1 . 0000E *00 

50 

1 . 00 08E + 00 

1 . 0008E* 00 

1 . 0006E *00 

1 .0002E*00 

9 .997 ?E- 01 

9. 9953E-01 

9. 9953E-01 

9.9973E-01 

1 , 0000E ♦ 00 

1 . 0003E * 00 

48 

1 . 000b£*00 

1 . 000 6E * 0 0 

1 ,0004E*00 

1 . 000 1E*00 

9.9985E 01 

9. 9983E-01 

1 .0001E*00 

1 .0005E*00 

1 . 0009E* 00 

1 . 001 3E*00 

4b 

1 . 0008E' *00 

1 . DO OBE *00 

1 . OOQbE ♦ 00 

l . 0002E* 00 

9. 9992E-01 

9 . 9996E-01 

1 .0003E*00 

1 . 00 0 9E * 00 

1 . 00 15E * 00 

1 . 0020E+00 

44 

1 . 00 1 0E*0Q 

1 , DO 1 of* no 

1 . COObC *00 

\ . 000 1 E ♦ 00 

9. 9^8 OE- 01 

9 . 999JE-01 

1 . 0005E ♦ 00 

1 .0013E *00 

1 . 002 1 E * 0 0 

1 . 0027E+00 

42 

I . 0 0 1 1 E * 0 0 

1 -DO 1 it* 00 

i .OHQ6F * ‘.'O 

9 . 4 <» 4 OF 01 

9.9953E- 01 

9 . 4982E- 01 

1 . 000 7E ‘ 0 0 

1 . 00 18E* 00 

1 . 0028E *00 

1 . 00 3 6E ♦ 00 

40 

1 . 0010E*00 

1 . 00 1 OE ♦ 00 

1 - 0004E * 0 0 

9 . 99S2E 01 

9 - 99 1 7E *0 1 

9 . 9969E-01 

1.0009E+00 

1 . 0025E * 00 

1 . 0039E *00 

1 . 0048E * 00 

38 

1 . 00Q8E*Q0 

I . 00 08E *00 

9.9992E 01 

9 . ‘*88 bh - 0 1 

9 . 9Q60E 01 

9 . 9953E-01 

1 . 0014E*00 

1 . 0035E + 00 

1 . 0 05 3E * 00 

1 . 0065E* 00 

3b 

1 . 0003E*00 

1 . 00 0 3E *00 

9. 9 9 04 E 01 

9 . 9 77 9E- 0 1 

9 . 9775E-01 

9 . 99 33E - 0 1 

1 . 0020E + 0 0 

1 . 0049E ♦ 00 

1 . 0074E *00 

1 . 0090E* 00 

34 

4.9905E 01 

** . r ^u5E-01 

q . 9 7 4 7 E 0 1 

9 . 4t/08E - 0 1 

9.96b 3E- 0 1 

9 . 991 3E- 01 

1.0030E*00 

1 . 0071E*00 

1 - 0 104E *00 

1 . 012bE*00 

32 

9.4684E 01 

*». 'o84E 0 1 

4 , q 485L ■ 0 1 

9.0S4OL 01 

9.9479E 01 

4 . 9895E -01 

1 . 0046E+00 

1 . 01 02E*00 

1 .0148E*0C 

1 . 01 77E*00 

30 

9 . 4 3 05E- 0 1 

4.='i3 05E 0 1 

9 . 9 0 b 3F ■ 0 1 

9.8453E-01 

9 . 9235E 01 

9 , 9882E- 0 1 

1 . 00 b 9E* 00 

1 . 0148E*00 

1 ,0210E*00 

1 . 0251E*00 

28 

9. 8 68 ^F -01 

4 . 8 t>89E 0 1 

9 . 84 0 a F - 0 l 

9.8 37 q r- 01 

4 .8900E-01 

9.9879E-01 

1 .0103E*00 

1 . 02 12E* 00 

1 . 0298E *00 

1 - 0355E*00 

2b 

9 . 7728E-01 

9. 7728E-01 

9. 7431E 01 

9. 75b 3t - 0 1 

4 .8448E 01 

9 . 9891E-01 

1 . 0 1 5 IE * 00 

1 . 0301E*00 

1 . 0422E *00 

1 -0501E+00 

24 

9.6283E-01 

9 . t> 2 8 3 E - 0 1 

9 . 6013E-31 

9.C.-432E-01 

9 . 7848E-01 

9 . 9925E-0 1 

l . 02 18E + Q0 

1 . 0425E * 00 

1 -0592E*00 

1 -0701E*00 

22 

9.4184E-01 

9 . 4 184E- 0 1 

9.4022F 01 

q .491 IE 01 

9. 7067E-0 1 

9. 9991E-01 

1 . 03 0 9E* 00 

1 . 0594E * 00 

1 . 0823E * 00 

1 . 09?2E*00 

20 

9 . 1 2 3 1 E 01 

9. 1231E-01 

4.131 9t> 0 1 

4 . 2 q 2 5 F •• 0 1 

9.607 IE-01 

1 . 00 1 OE ♦ 00 

1 . 04 3 1 E* 00 

1 . 081 7E*00 

I . 1 12 q F *00 

1 . 1 331E*00 

18 

8. 7 z o / i : - 0 l 

8. 7207E 01 

8.7784E 01 

•». 041 9F-01 

9.4829E 01 

1 . 0025E*00 

1 . 0590E + 00 

1 . 1 108E*00 

1 - 1 5 2 6 E * 0 0 

1 . 1 7 9 7 E * 0 0 

16 

8 . 1B4CE o 1 

8 . 1 8 q 2 E - 0 1 

8. 3340E 01 

U. 7 372E - 01 

9.3319E 01 

1 - 004 7E * 00 

1 . 0792E*00 

1 . 1478E*C0 

1 . 2030E * 00 

1 - 2 388E * 00 


14 7.5088E-01 7.5088E 01 7.7970E-01 8.381bt-01 9.154SE01 l.Q07bE*00 I.1044E*00 1.1935E*00 1.2651E+Q0 1.3M5E*C0 

12 o.bo4oE-01 o.boohl 01 7.UP9E-01 7.984bF -01 8.9575E-01 1.0113E+00 1.134bE*00 1.2484E + 00 1.339t,E*Q0 1.39dbE*00 

10 5.65USE-01 5.»?505E-0I b.44l$F-Ul 7 55r>5E-01 8.7b28E-0i 1.0165E+00 1 . 1693E-00 1.3122E*00 1.42b3E*0C> 1.4999E*00 

8 4.4814E-01 4 . A y 1 4 E - 0 1 5.57cMF ■ '.J 1 t . ::7'.',h 01 8.6031E-01 1.0273E*00 1.20?4E*00 1.3834E*0Q ).S23bE*00 l.bt38E*0U 

o 3.2167E 01 3 . 2 I b 7 E - 0 1 4.5I5'^F r 01 o.4l/8L 01 8.4313E-01 1.Q497E+00 1.2630E*00 1.4b62E*0G l.b216E*00 1.738bE*00 


4 

1,9/ML oi 

1 . 9 75 OF 01 

l . 2 b 9 0 E - 01 

5.^03/C OI 

7 . 95o 3E 01 

1 .Ub34E*00 

1 . 3259E* CO 

1 . 565 9E * 00 

1 . 758 9E *00 

1 . 882 7E * 00 

2 

H.BH40E 02 

8 . 88 9 OE 02 

2.0555E 01 

4.I4o8t 01 

b. q b3bE- 01 

1 . 0138E+00 

1 . 3292E*00 

1 . b 1 4 9E * 0 0 

1 .8440E *00 

1 . 9929E+00 

1 

3 . 7 54 OE 02 

3. q 4 7 IE 02 

1 . S5G9F-01 

3 . b248E 01 

6 .5092 E- 0 1 

9.8023E-01 

1 . 3C70E*00 

1 . 6 0 18E *00 

1 .6378E *00 

1 . 9412E*00 

1X1 

■ 1 1 

1 2 

i ^ 

1 4 

15 

1 b 

1 7 

18 

19 

2 0 

ieta 

5 1 

1 - G000t*00 

1 .OOOOF *00 

1 . OOOOF *00 

1 . 0 0 0 OE ♦ 0 0 

1 . OOOOF. *00 

1 . 0000E * 00 

1 -OOOOE*GO 

1 . 0000t*00 

1 .0000 E *00 

1 . OOOOF * 00 

50 

I . 0006E*00 

1 . 0007E*00 

1 - 0 008E *00 

I . 000 7L ♦ 00 

1 . OOObE *00 

1 .0004E+00 

1 . 0003E + 0 0 

1 . 0001E*00 

1 . 000 OE * 00 

1 . OO0OL*OO 

48 

I .00 I 5E* 00 

1 .001 5E *0 0 

1 . 0 0 14F * 0 0 

i . 0 0 1 2 F *00 

1 . 0009F+00 

1 . OOObE * 00 

1 .0003E*00 

1 . 0001E*00 

9. 9998E-01 

9 .9994E-01 

4b 

1 . 0022E + 00 

1 . 0022E+00 

1 . 0020E*00 

1.001 7fc* 00 

1 . 00 1 2E ♦ 0 0 

1 .0008E*00 

1.0004E+00 

1 . OOOOE*QO 

9. 9985E- 01 

9 .9979E-01 

44 

1 . 0030E + 00 

1 . 0030E*00 

1 . 0 02 7E * 00 

1 ,0022E*00 

1 .001 bE*00 

I . 0009E + 00 

1.0Q03E*00 

9 . 9989E-0 1 

9- 9962E-01 

9.995 3E- 0 1 

42 

1 . 0039E*00 

1 . 00 3 9t * 00 

1 .0035E*00 

1 . 0028E ♦ 00 

1-001 9E*00 

1 .0010E + 00 

1.0002E+00 

9. 9960F-01 

9 . 9922E-0 1 

9.990 9E- 0 1 

40 

1 . 0052E ♦ 00 

1 . 0 05 1 E * 0 0 

1 . 0 045F * DO 

1 . 003 bE ♦ 00 

1 . 0C24E*OO 

1 . 00 1 2E *00 

1 .OOOOE+OO 

9.991 3E- 0 1 

9.9858E-01 

9 . 9838F-01 

38 

1 . 00 7 1 E ♦ 00 

1 . 00&9E *00 

l . OObOE + OO 

1 , 004 7F* 00 

1 . 003 1 E + 00 

1 . 0013E + 00 

9. 9967E-01 

9.98 38E-01 

9.9758E-01 

9 . 9 728F-0 1 

3b 

1 . 00 9 7E* 00 

1 -0094t*00 

I . 0 082F.*00 

1 . Q0o3F *00 

1 .0039t*00 

1 . 00 1 4E *00 

9.991 OE -0 1 

9 . 9/23E- 0] 

9.9605E01 

9 . 95b OF 01 

34 

1 . 0 1 34E * 00 

1 . 0130E+CC 

1 .01 1 3E + DO 

1 . 008bE*GQ 

l .0052E*00 

1 . 00 16E *C0 

9 . 9821E- 01 

9 . 955 OE -01 

9. 93/bE 01 

9. 9308E-01 

32 

1 . 0189E*00 

1 -C182E*00 

1 .Q157E + 00 

1 . 01 18E*G0 

1 .00b9E*00 

1 . 00 1 7E* 00 

9. 9685E-01 

9 . 9292E- 0 1 

9.903 6E— 0 1 

9 . 8933E- 0 1 

30 

1 . 02b 7E * 00 

1 -025bF*00 

1 -0219E + 00 

1 .0163E+00 

1 . O0 q 3E-*OO 

1 .0018E + 00 

9 . 9481E-01 

9 .89 1 2E- 0 1 

9.8538E-01 

9.8382E-01 

28 

1 . 03 7 SE ♦ 00 

1 -0360E*00 

1 .0307E*00 

1.022bE*00 

1 . 0125E*00 

1 .C019E + 00 

9.9183E- 01 

9 .8363E-0 1 

9. 78 I6E-0 l 

9. 7583E-01 

2b 

1 -0529E*00 

1 .0504E*00 

1 . 0429E ♦ 00 

1 -0313E*00 

1 . 01 70E*00 

1 .0019E + 00 

9 . 8 7S6E-0 1 

9 . 758 OE- 0 1 

9 . b 788E-0 1 

9.6441E-01 

24 

1 . 0 740E ♦ 00 

1 -0703E*00 

1 -059bE*00 

1 .0432E*00 

1 . 023 1E*00 

1 .0018E*00 

9.8156E-01 

9.6484E-0 1 

9 . 5 34 7E- 0 1 

9.483 7E-01 

22 

1 . 1 02 3E ♦ 0 0 

1 -C971E*00 

1 . 082 IE* 00 

1 . 0593E *00 

I . 03 14E*00 

1 . 00 1 6E*00 

9.7332E-01 

9.4980E-C1 

9 . 3367E- 01 

9 . 2626E-0 1 

20 

1 . 1 400E ♦ 00 

1 . 1 32 7E*00 

1 .1121E*00 

1 . Q8Q8F *00 

1 . 0425E + 00 

1 .001 4E + 0 0 

9 . 6232E- 0 1 

9.2962F-01 

9.07 05F- 0 l 

8 .9645E 01 

18 

1 . 1888E* 00 

I . 1 78 9F. ♦ 00 

1 . 151 1E*00 

1 . 1 C88E *00 

1 . 0569£* 00 

1 .0013E*00 

9 4805F-01 

9 . 0326E- 0 I 

8. 721 SE- 01 

8.57 22F-0 1 

lb 

1 . 2508E *00 

1 . 2 3 7bE * 0 0 

1 -2007E*00 

1 . 1445E*00 

1 . 0 755E + 00 

1 .0014E + 00 

9 . 301 6E-0 1 

8 . b q 8ZE-01 

8 .2/bSE-OI 

8 . 0694E-01 

14 

1 . 32 7 1 E *00 

1 . 3099E*00 

1 -2S20E*00 

1 . 1889E *00 

1 . 0 989E ♦ 00 

1 . 0020E*00 

9.0857E-01 

8 . 23 7bE- 0 1 

7.7262E-01 

7. 4431 E- 01 

12 

1 .4185E*00 

I .39b7E*00 

1 - 335/L + 00 

1 . 2425E*00 

1 . 1 277E* 00 

1 . 003 7E* 00 

8 .836 1 E- 0 1 

? , 8 0 1 OE- 0 1 

7.06 7bE-0i 

b . 6858E •• 0 1 


92 l est Cases 


PRO I KES 2 1) User's Guide 


10 

1 .5247E+00 

l .4976E + 00 

8 

1 . 6442E+ 00 

1.61 14E+00 

6 

1 . 7746E+ 0 0 

1 .7355E+00 

4 

1 .9233E+00 

1 .87 6 3E + 0 0 

2 

2. 0458E+00 

1 .9977E + 00 

1 

2 . 0458E+00 

1 . 9966E + 00 

IXI 

= 21 


IETA 

51 

1 .OOOOE+OO 


50 

1 .OOOOE+OO 


48 

9.9994E-01 


46 

9 . 9979E-01 


44 

9 . 9953E- 01 


42 

9.9909E-01 


40 

9 . 9838E-01 


38 

9 . 9728E-0 1 


36 

9 . 9560E-0 1 


34 

9 . 9308E-0 1 


32 

9.8933E-01 


30 

9.8382E-01 


28 

9. 7583E-01 


26 

9. 6441 E- 01 


24 

9.483 7E- 0 1 


22 

9.2626E-01 


20 

8 . 9645E- 0 1 


18 

8 . 5722E- 0 1 


16 

8.0694E-01 


14 

7 .443 IE-01 


12 

6. 6858E-01 


10 

5. 7977E-01 


8 

4. 7873E-01 


6 

3 . 6708E-0 1 


4 

2.471 7E-0 1 


2 

1 . 2035E-0 1 


1 

5. 7670E 02 


OR 1 

R-VELOCI TY 

AT TIME 

IXI 

= 1 

2 

IETA 

51 

0. OOOOE + OO 

0 . OOOOE + OO 

50 

0. OOOOE + OO 

2.5545E-04 

48 

0. OOOOE + OO 

2 . 08 35E-04 

46 

0. OOOOE + OO 

1 . 1258E-04 

44 

0. OOOOE + OO 

4 .8456E-05 

42 

0. OOOOE + OO 

- 3 . 8884E- 05 

40 

0. OOOOE + OO 

-2.0079E-04 

38 

0 . OOOOE+OO 

-4 . 7849E-04 

36 

0. OOOOE + OO 

-9.3 744E- 04 

34 

0. OOOOE + OO 

-1 .6809E-03 

32 

0 . OOOOE + OO 

-2 .8566E-03 

30 

0. OOOOE+OO 

-4 . 6725E- 03 

28 

0 . OOOOE + OO 

-7 .41636-03 

26 

0 . OOOOE+OO 

- 1 . 1477E-02 

24 

0 . OOOOE+OO 

-1 .73736-02 

22 

0. OOOOE+OO 

-2 . 58 0 OE-02 

20 

0. OOOOE + OO 

-3 . 7682E-02 

18 

0. OOOOE + OO 

-5 . 4208E-02 

16 

0 . OOOOE + OO 

-7 . 671 3E-02 

14 

0 . OOOOE + OO 

-1 . 0622E-01 

12 

0. OOOOE + OO 

-1 .4240E-01 

10 

0. OOOOE + OO 

-1 . 8 1 94E-01 

8 

0 . OOOOE + OO 

-2. 1700E-01 

6 

0. OOOOE+OO 

-2 . 3683E-01 

4 

0. OOOOE + OO 

-2 . 3826E-01 

2 

0. OOOOE + OO 

-2 . 41 39E-0 1 

1 

0. OOOOE+OO 

-2.4921E-01 


IXI 

= 1 1 

12 

IETA 


51 

0. OOOOE + OO 

0. OOOOE + OO 

50 

-1 .2661E-03 

-1 .0323E-03 

48 

- 7 . 925 1 E- 04 

-4 .51 13E-04 

46 

-8.873 IE-04 

-3 . 3358E-04 

44 

-1 . 0238E-03 

-2 . 3 1 56E-04 

42 

-1 . 1 380E-03 

-3 .835QE-05 

40 

- 1 . 2802E- 0 3 

2.3150E-D4 

38 

-1 . 4328E-03 

6.43 17E-04 

36 

-1 . 6042E-03 

1 . 2629E-03 

34 

-1 .8030E-03 

2 .19236-03 

32 

-2 . 0368E-03 

3 . 5803E-03 

30 

-2 . 3042E-03 

5 . 6407E-03 

28 

-2.5878E-03 

8 . 6653E-03 

26 

-2 .852 IE-03 

1 . 3032E-02 

24 

-3 . 0506E-03 

1 .9201E-02 

22 

-3.1 386E-03 

2. 7704E-02 

20 

- 3 . 088 IE- 03 

3 . 91 17E-02 

18 

-2.8930E-03 

5.4016E-02 

16 

-2.5653E-03 

7.2907E-02 

14 

-2. 1275E-03 

9 . 6133E-02 

12 

-1 .6106E-03 

1 .2378E-01 

10 

-1 .0210E-03 

1 .5562E-01 

8 

-3. 7897E-04 

1 .9113E-01 

6 

l .6329E-04 

2 . 2926E-01 

4 

1 . 3982E-03 

2. 7098E-01 

2 

2 . 03 12E-03 

3 . 0932E-0 1 

1 

-2.731 OE- 08 

3, 1623E-01 

IXI 

= 21 


IETA 


51 

0. OOOOE + OO 


50 

0. OOOOE + OO 


48 

0 . OOOOE+OO 


46 

0. OOOOE+OO 


44 

0. OOOOE+OO 



1 .4216E+00 
1 .5 1 90E+00 
1 . 625 7E * 00 
1 . 7468E+00 
1 .8545E+00 
1 .84<>6E + 00 


1 . 3055E + 0 0 
1 .3776E+0Q 
1 .4573E+00 
1 .5491E+00 
I . 6324E+00 
1 . 62 1 3E+00 


1 . 1622E+00 
1 . 2027E+00 
1 . 2487E+00 
1 .3043E+00 
1 .3551E+00 
1 . 3360E+00 


1 .0070E+00 
l . 0 1 2 7E + 00 
1 .0214E+00 
l .0370E+00 
1 .0507E+00 
1 . 0224E+00 


8 . 5605E-0 1 
8.2720E-01 
7.9859E-01 
7 . 74 1 2E-0 1 
7.4941E-01 
7. 1 154E-01 


7 . 24 6 1E-0 1 
6 . 6 393E- 0 1 
6.0035E-01 
5.3791E-01 
4 .7590E-01 
4 .29 14E-01 


6.3062E-Q1 
5 . 45 6 7E- 0 1 
4.5423E-01 
3.5968E-01 
2 . 6292E-0 1 
2. 0626E-01 


5 . 7977E-01 
4 . 7873E-0 l 
3 . 6708E-0 1 
2.471 7E-0 1 
1 .2035E-01 
5. 1701E-02 


LEVEL 2 l 0 
3 

0 . 0000E*00 
4.6045E-04 
3 . 498 6E-04 
1 . 34 64E-04 
-2.91 09E-05 
-2.5956E-04 
-6 . 6072E-04 
- 1 . 323 IE-03 
-2. 3856E-03 
-4 . 0602E-03 
-6 . 6424E- 03 
-1 .0536E-02 
-1 . 628 3E- 02 
-2.4S90E-02 
-3.6357E-02 
-5 . 2696E-02 
- 7 . 49 1 3E-02 
-1 .0444E-01 
-1 .4266E-01 
-1 .9072E-01 
-2.4910E-01 
-3. 1616E-01 
-3. 8431 E- 01 
-4 . 3629E- 0 1 
~4 .5500E-01 
-4 . 6092E-01 
-4 . 7732E-0 1 

13 

0 . OOOOE+OO 
-7 . 500 IE-04 
-1 .2793E-04 

1 .5646E-04 
4 . 6016E-04 
9. 1280E-04 
1 .5377E-03 
2.4446E-03 
3. 7706E-03 
5 . 7169E-03 
8 . 5690E-03 
1 .2721E-02 
1 .8698E-02 
2.7172E-02 
3.8973E-02 
5 . 5079E-02 
7 . 6571E-02 
l . 0455E-0 1 
1 .3999E-01 
1 . 8 356E-0 1 
2 . 3548E-01 
2. 9534E-01 
3.621 9E-0 1 
4 . 3422E-0 1 
5 . 1230E-01 
5 .8587E-01 
6 . 0098E-0 1 


4 

0 . OOOOE+OO 
4.481 7E-04 
2 . 582 IE-04 
-1 .2082E-04 
-4 . 6240E-04 

- 9 . 4569E-04 
-1 .7223E-03 
-2.9336E-03 
-4. 7877E-03 

- 7 . 5895E- 03 

- 1 . 1751E-02 
-1 . 7820E-02 
-2 . 6507E- 02 
-3.871 7E-02 
-5 . 556 IE-02 
-7 .83 34E-02 
-l . 0845E-01 

- 1 . 4 728E-0 1 
-1 . 9 6 02E-01 
-2.5559E-01 
-3 .268 IE-01 
-4 . 1048E-01 
-5 . 0493E-0 1 
-5 . 9723E-01 
-6 .5810E-01 
- 6 . 8482E- 0 1 
-7. 1141E-01 

14 

0 . OOOOE+OO 
-4.6644E-04 
1 .3826E-04 
5 . 3 127E-04 
9.8382E-04 
1 .6292E-03 
2.5248E-03 
3 . 8 14 6E- 0 3 
5.6904E-03 
8 . 428 IE-03 
1 .2413E-02 
1 .8 1 72E-02 
2. 6404E-02 
3.801 0E-02 
5.41 12E-02 
7 . 6039E-02 
1 . 0528E-01 
1 . 4335E-01 
1 . 9160E-01 
2.5100E-01 
3.2187E-01 
4 . 0375E-01 
4 . 9539E-0 1 
5 . 9443E- 0 1 
7 . 0 153E-0 l 
8 .0427E-01 
8.261 0E-01 


5 

0. OOOOE+OO 
1 .7066E-04 
-8 . 6962E-05 
-6 . 4 94 9E-04 
-1.21 64E-03 
-2 . 0068E-03 
-3.2 020E-03 
-4 . 9749E-03 
-7.572 IE-03 
-1 . 1 340E-02 
-1 . 6739E-02 
-2.4366E-02 
-3 . 499 IE- 02 
-4 . 9587E-02 
-6 . 9345E-02 
-9 . 5664E-02 
-1 . 3008E-0 1 
-1 . 741 7E-01 
-2.2932E-01 
-2 . 9656E-0 1 
-3. 7642E-01 
-4 . 6953E-0 1 
-5. 7760E-01 
-6 . 9793E-0 1 
-8 , 0380E- 0 1 
-8 . 6290E- 0 1 
-8 . 9592E-01 

15 

0 . OOOOE+OO 
-2 . 2 Q92E-04 
3 . 2394E-04 
7 . 6504E-04 
1 . 303 1E-03 
2 .0601E-03 
3.11 79E-03 
4 . 6392E-03 
6 . 8473E-03 
1 .0060E-02 
1 .4721E-02 
2. 1431 E- 02 
3.0994E-02 
4 .445 IE-02 
6 . 3 104E-02 
8.8506E-02 
1 .2240E-01 
1 .6657E-01 
2.2264E-01 
2 . 9181E-01 
3 . 7453E-01 
4 . 7037E-01 
5 . 7796E-01 
6.9472E-01 
8 . 2 1 1 IE- 0 1 
9 . 4423E- 0 1 
9. 7063E-01 


6 

0 . OOOOE+OO 
-2 . 904QE-04 
-5 . 6570E-04 
-1 .2739E-03 
-2.031 9E- 03 

- 3 . 0636E-03 
-4 . 5529E-03 
-6.671 9E-03 

- 9 . 6628E- 03 
-1 .3860E-02 

- 1 . 9707E-02 
-2. 7789E-02 
-3.8876E-02 
-5. 3967 E- 02 
-7. 4326 E- 02 
-1.0148E-01 
-1.371 9E-0 1 
-1 . 8 328E-0 1 
-2.4 145E-0 1 
-3 . 1293E-01 
-3 . 9804E-01 
-4 . 96 14E-0 1 
-6 . 0737E-01 
- 7 . 3399E-0 1 
-8 . 6248E-0 1 
-9.4669E-01 
-9 .8023E-0 1 

16 

0 .OOOOE+OO 
-4. 1 604E-05 
4. 1727E-04 
8.5143E-04 
1 .4075E-03 
2 . 1872E-03 
3 . 284 1 E- 03 
4.8622E-03 
7. 1512E-03 
1 . 0477E-02 
1 .52 94E-02 
2 . 2220E-02 
3.2084E-02 
4 . 5963E- 02 
6.5208E-02 
9 . 1 44 1 E- 02 
1 .2648E-0 1 
1 .7223E-01 
2. 3045E-01 
3. 0246 E- 01 
3.8889E-01 
4 . 8943E-0 1 
6 . 028 IE- 0 1 
7.2657E-01 
8.6106E-01 
9 . 9404E- 0 1 
1 .0224E+00 


7 

0 . 0000E + 00 
-7.841 OE- 04 

- I . 0Q04E-0 3 

- I . 7625E-03 
-2 . 6026E-03 
-3. 7131 E- 03 
-5 . 2583E-03 
-7 . 3833E-03 
-1 . 02 98E-02 
-1 .4296E-02 
-1 . 978 IE-02 
-2 . 7305E-02 
-3 . 7620E-02 
-5 . 1 726E-02 
-7.0900E-02 
-9.6688E-02 
-1 . 3083E-01 
-1 . 7510E-01 
-2.31 07E-0 1 
-2 . 9985E-01 

- 3 . 8 183E-0 1 
-4 . 7630E-01 
-5.8187E-01 
-6 . 9963E- 0 1 
-8.2577E-01 
-9. 1890E- 0 1 

- 9 . 4957E- 0 1 

17 

0 .OOOOE+OO 
5 . 924 0E-05 
4 . 1936E-04 
8 .0229E-04 

1 . 3123E-03 
2 . 0280E-03 
3.041 0E-03 
4 . 5003E-03 
6.61 85E-03 
9. 6971 E- 03 
1 . 4 1 57E-02 
2 . 05 73E-02 
2.971 9E-02 
4.2600E-02 
6.0483E-02 
8 . 489 IE- 02 
1 . 175SE-01 
1 .6029E-01 
2. 1484E-01 
2.8258E-01 
3. 64 3 OE- 01 
4 . 5997 E- 01 
5 . 68 7 OE-0 1 
6.8847E-01 
8. 1974E-01 
9 . 5 184E-0 1 
9. 7935E-01 


8 

0. OOOOE+OO 
-1 . 1722E-03 
-1 .2517E-03 
-1 . 954 3E- 03 
-2. 7412E-03 
-3. 7467E-03 
-5. 1072E-03 

- 6 . 9294E- 0 3 

- 9 . 3835E-03 
-1 .2715E-02 
-1 . 7276E-02 
-2 . 3565E-02 

- 3 . 2264E-02 
-4 . 4276E-02 
-6 . 0724E-02 
-8 . 2934E-02 
-1 . 1235E-01 

- 1 . 5Q40E-0 1 
-1 . 98346-01 
-2 . 5706E-0 1 
-3 . 2692E-0 1 
-4.0761E-01 
-4 . 9779E-0 1 
-5. 9682E-01 
-7. 0418E-01 
-7. 9035E-01 
-8. 1615E-01 

18 

0. OOOOE + OO 
8 . 8283E-05 
3 .4731E-04 
6.4830E-04 
1 .0601E-03 
1 . 6390E- 03 
2.4623E-03 
3 . 6508E-03 
5 . 3 790E-03 
7.8956E-03 
1 . 1549E-02 
1 .6818E-02 
2 . 4345E-02 
3.49 70E-02 
4 . 975 IE-02 
6 . 9966E-02 
9 . 7 074E-02 
1 .3263E-01 
1 .78L7E-01 
2 . 3497E-01 
3 . 0391E-01 
3 .8527E-0 1 
4.78676-01 
5.8293E-01 
6.9876E-01 
8. 1B42E-01 
8.4224E-01 


9 

0 . OOOOE+OO 
-1 . 3798E-03 
-1 .2708E-03 
-1 .8 158E-03 
-2.4367E-03 
-3. 1979E-03 
-4.2078E-03 
-5 .533 7E- 0 3 
-7 . 3028E-03 
-9 . 7034E- 03 
-l .301 IE- 02 
-1 -7615E-02 
-2.4033E-02 
-3.2929E-02 
-4 . 51 06E-02 
-6.1 484E-02 
-8 . 3065E-02 
-1 . 108 6E-01 
-1 . 45 7 9E- 0 1 
-1 .8852E-01 
-2. 3931 E- 01 
-2.9792E-01 
-3 . 6346E-0 1 
-4 . 3489E-01 
-5 . 1217E-01 
-5 . 7803E-01 
-5 . 97 14E-01 

19 

0 . OOOOE+OO 
6 . 8 766E- 05 
2. 3221E-04 
4 . 3474E-04 
7 . 1478E-04 
1 . 1089E-03 
1 . 6708E-03 
2.4832E-03 
3 . 6665E-03 
5 . 3937E-03 
7 . 9084E-0 3 
1 . 1547E-02 
1 .6764E-02 
2 . 4 154E-02 
3 . 4472E-02 
4 . 8634E-02 
6.769 9E-02 
9.281 9E-02 
1 .2516E-01 
1 . 658 OE- 0 1 
2. 1563 E- 01 
2 . 7529E-0 l 
3 . 45 15E-0 1 
4.2526E-01 
5 . 1686E-01 
6. 1641E-01 
6 . 348 IE- 0 1 


10 

0 . OOOOE + OO 
-1 . 3993E-03 
-1 . 092 IE- 03 
-1 .4199E-03 
-1 .8087E03 
-2 . 2538E- 03 
-2 . 8 358E- 03 
-3 . 5820E-03 
-4.5670E-03 
-5.9004E-03 
-7. 7406E-03 
-1 .0300E-02 
-1 . 3848E-02 
-1 .87126-02 
-2 .52806-02 
-3.3998E 02 
-4 . 5371 E- 02 
-5 . 9938E-02 
- 7 . 820 7E-02 
-1 .0057E-01 
-1 .2716E-01 
-1 .57796-01 
-1 .9199E-01 
-2.2915E-01 
-2.6888E-01 
-3 . 0442E- 0 1 
-3. 1537E-01 

20 

0 . OOOOE+OO 
3 . 0944E-05 
1 . 0861E-04 
2 . 0823E-04 
3 . 4486E-04 
5 . 3 689E-04 
8. 1037E-04 
1 .2052E-03 
1 . 7799E-03 
2. 6185 E- 03 
3.83 98E- 03 
5 . 6077E-03 
8 . 1442E-03 
1 . 1 741E-02 
1 . 6768E-02 
2.367 bE-02 
3.2990E-02 
4 . 5290E- 02 
6.1 182E- 02 
8. 1264E-02 
1.061 0E-01 
1 .3621E-01 
1 . 7204E-01 
2. 1390E-01 
2.6227E-01 
3 . 1555E-0 1 
3.2643E-01 
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42 0 . OOOOE* 00 

40 0 . OOOOE *00 

38 0 . OOOOE* 00 

36 0.00006*00 

34 0 . OOOOE* 00 

32 0 , 0000E + 00 

30 0.00006*00 

28 0.00006*00 
26 0.00006*00 
24 0 . 00006*00 

22 0. OOOOE *00 

20 0 . OOOOE * 00 

18 0 . OOOOE ♦ 00 

16 0 . OOOOE*OQ 

14 0 . OOOOE* 00 

12 0 . OOOOE^OO 

10 0.00006*00 
8 0 . OOOOE ♦ 00 

6 0. OOOOE *00 

4 0 . OOOOE*QO 

2 0 . 0DO0E*0O 

1 0.0000E*0Q 

STATIC PRESS. COEFF. AT TIME LEVEL 210 

IXI =1 2 3 4 5 6 7 8 9 10 

IETA 

51 3.8829E-03 2.2737E-13 2.2737E-13 2.2737E-13 2.2737E-13 2.2737E-1 3 2.2737E-13 2.2737E-13 2.2737E-13 2.2737E-13 

50 6. 1637E-03 6.1637E-03 5.1405E-03 2.8359E-03 -3.1985E-04 -3.6459E-03 -6.5574E-03 -B.7151E-03 -1.0008E-02 -1.0468E-02 

48 3. 9352 E- 03 3.9352E-03 3.2633E-03 1.9545E-03 3.0544E-04 -1.3614E-03 -2.8247E-03 -3.9875E-03 -4.8289E-03 -5.3456E-03 

46 5.5038E-03 5.5038E-03 4.5401E-03 2.7119E-03 4.9782E-04 -1.6302E-03 -3.3906E-03 -4.6973E-03 -5.5706E-03 -6.0462E-03 

44 7 . 2408E-03 7.2408E-03 5.9716E-03 3.6298E-03 8.7716E-04 -1.6998E-03 -3.8057E-03 -5.3889E-03 -6.4931E-03 -7.1448E-03 

42 9.6240E-03 9.6240E-03 7.8992E-03 4 .8486E-03 I.4004E-03 -1.7303E-03 -4.2573E-03 -6.1841E-03 -7.S800E-03 -8.4489E-03 

40 1.2939E-02 1.2939E-02 1.0555E-02 6.5175E-03 2 . 1224E- 03 - 1 . 7806E- 03 -4 . 94 7 1 E- 0 3 -7 . 4452E-03 - 9 . 344 IE- 03 - 1 . 0584E- 02 

38 1 . 7444 E- 02 1.7444E-02 1.4141E-02 B.7786E-03 3.1433E-03 -1.7972E-03 -5.8876E-03 -9.2618E-03 -1.1944E-02 -1.3752E-02 

36 2.3562E-02 2.3562E-02 1.8986E-02 1.1862E-02 4 . 5986E- 03 - 1 . 7673E- 0 3 -7 .22 36E-03 - 1 . 1 94 1 E-02 - 1 . 58 1 7E-02 - 1 .84 6 6E- 02 

34 3.1867E-02 3.1867E-02 2.5543E-02 1.6095E-02 6.6882E-03 -1.6723E-Q3 -9.1616E-Q3 -1.5908E-02 -2.1554E-02 -2.5407E-02 

32 4 . 3 148E- 02 4.3148E-02 3.4440E-02 2.1943E-02 9 . 685 1 E-03 - 1 . 5 1 93E-03 -1 . 2034E-02 -2 . 1 790E-02 -2 . 9998E-02 -3 . 55 37E-02 

30 5.8479E-02 5.8479E-02 4.6524E-02 3.0042E-02 1.3940E-G2 -1.3697E-03 -1.6345E-02 -3.0474E-02 -4.2313E-02 -5.0172E-02 

28 7.927 6E-02 7.9276E-02 6.2903E-02 4.1223E-02 1.9865E-02 -1 . 3909E-03 -2.2843E-02 -4.3190E-02 -6.0079E-02 -7.1 103E-02 

26 1.0734E-01 1.0734E-01 8.4937E-02 5.6498E-02 2 . 7874E- 02 - 1 . 9369E- 03 - 3 . 2598E- 02 - 6 . 1 6 03E- 02 -8 . 54 0 9E- 02 -1 . 00 73E-0 1 

24 1 .4 48 IE- 01 1.4481E-01 1.1416E-01 7.6980E-02 3 . 825SE-02 -3 . 6703E-03 -4 . 7 11 3E- 02 -8 . 7 9 34E- 02 - 1 . 2 1 09E-0 1 -1.4222E-01 

22 1 . 9402E-0 1 1.9402E-01 1.5210E-01 1.0371E-01 5 . 0953E- 02 -7 . 7344E-03 -6 . 8469E-02 - 1 . 25 1 OE- 0 1 - 1 . 70 73E-01 - 1 . 9966E- 0 1 

20 2.571 QE-0 1 2.5710E-01 1.9991E-01 1.3732E-01 6.5234E-02 -1.5970E-02 -9.9492E-02 -1.7685E-01 -2.3889E-01 -2.7819E-01 

18 3 . 3525E-0 1 3.3525E-01 2.5795E-01 1.7755E-01 7.9306E-02 -3.1148E-02 -1.4392E-Q1 -2.47906-01 -3.3114E-01 -3.8395E-01 

16 4 . 2766E-0 1 4.2766E-01 3.2538E-01 2.2267E-01 9.0033E-02 -5.7156E-02 -2.0650E-01 -3.4391E-01 -4.5399E-01 -5.2396E-01 

14 5 . 3032E-0 1 5.3032E-01 3.9969E-01 2.6913E-01 9.2947E-02 -9.9040E-02 -2.9293E-01 -4.7126E-01 -6.1445E-01 -7.0559E-01 

12 6 . 35 1 2E- 0 1 6.351 2E-0 1 4.7622E-01 3.1156E-01 8.2777E-02 -1.6271E-01 -4.0951E-01 -6.3652E-01 -8.1932E-0L -9.3579E-01 

10 7 . 3009E-0 l 7 . 3009E-0 1 5.4725E-01 3.4332E-01 5 . 4450E-02 -2 . 5398E-0 1 -5 , 6244E-0 1 -8 . 455 7E- 0 1 - 1 . 074 IE*00 - l . 2 1 99E * 00 

8 8.0183E-01 8 . 0183E-0 1 6.0183E-01 3.5659E-C1 3 . 6 1 1 IE-03 - 3 . 770 IE- 0 1 -7 . 5 6 32E-0 1 - 1 . 1 024E* 00 - 1 . 38 18E*00 - 1 . 5602E* 00 

6 8. 4144 E- 01 8 . 4 1 44E-0 l 6.2904E-01 3.4253E-01 -7.S060E-02 -5.3440E-01 -9.9296E-01 -1.4080E*00 -1.7417E*00 -1.9551E*00 

4 8.51 38E-0 1 8.51 38E- 0 1 6.26596-01 2.9588E-01 -1.8766E-Q1 -7.2944E-01 -1.2732E*00 -1.7616E*00 -2.15176*00 -2.4004E+QQ 

2 8.4242E-01 8.4242E-01 6.0524E-01 2.2448E-01 -3.2813E-01 -9.5365E-01 - 1 ,5851E*00 -2 . 1508E*00 -2 . 6004E*00 -2.8865E*00 

1 9.4053E-01 8 . 3848E- 0 1 5.8972E-01 1.8552E-01 -4.0220E-01 -1.0682E+00 -1.7385E+00 -2.3383E*00 -2.8148E*00 -3.1184E*00 

IXI - n 12 13 14 15 16 17 18 19 20 

IETA 

51 2.2737E-13 2.2737E-13 2.2737E-13 2.2737E-13 2.2737E-13 2.2737E-13 2.2737E-13 2.2737E-13 2.2737E-13 2.2737E-13 

50 -1.01 93E-02 -9,311 IE-03 -7.9694E-03 -6.3378E-03 -4.6034E-03 -2.9596E-03 -1.5869E-03 -6.2181E-04 -1.1495E-04 1.7802E-05 

48 -5 , 5242E-03 -5.3499E-03 -4.8306E-03 -4.0154E-03 -2.9986E-03 -1.9142E-03 -9.2088E-04 -1.7096E-04 2.4389E-04 3.5799E-04 

46 - 6 . 1 3 60E-0 3 -5.8386E-03 -5.1692E-03 -4.1B33E-03 -2.9835E-03 -1.7143E-03 -5.4932E-04 3.3978E-04 8.4368E-04 9.9247E-04 

44 -7.3253E-03 -7.0045E-03 -6.1871E-03 -4.9401E-03 -3.3952E-03 -1.7386E-03 -1.9351E-04 1.0138E-03 1.7272E-03 1.9607E-03 

42 -8 . 7259E-03 -8.3449E-03 -7.3054E-03 -5.6995E-03 -3.7028E-03 -1.5515E-03 4.7735E-04 2.0987E-03 3.0975E-03 3.4559E-03 

40 -1.1020E-02 - 1 . 0536E-02 -9.1336E-03 -6.9543E-03 -4.2497E-03 -1.3369E-03 1.4292E-03 3.6829E-03 5.1269E-03 5.6899E-03 

38 - 1 . 4420E-02 -1.3770E-02 -1.1820E-02 -8.7923E-03 -5.0518E-03 -1.0330E-03 2.8010E-03 5.9801E-03 8.0964E-03 8.9879E-03 

36 - 1 . 9453E-02 -1.8532E-Q2 -1.5763E-02 -1.1490E-02 -6.2423E-03 -6.2299E-04 4.7520E-03 9.2747E-03 1.2395E-02 1.3808E-02 

34 -2.68 14E-Q2 -2.5464E-02 -2.1494E-02 -1.5423E-02 -8.0034E-03 -8.0952E-05 7.5059E-03 1.3962E-02 1.8564E-02 2.0793E-02 

32 -3.7484E-02 -3.5477E-02 -2. 9776E-02 -2. U35E-02 -1 .0611E-02 6.1229E-04 1.1364E-02 2.0583E-02 2.7338E-02 3.0825E-02 

30 -5 .2815E-02 -4 . 9842E-02 -4 . U84E-02 -2. 9407E-02 -1 .4474E-02 1.4531E-03 1.6715E-02 2.9856E-02 3.9699E-02 4.5089E-02 

28 -7.4660E-02 -7.0315E-02 -5.8716E-02 -4.1337E-02 -2.0198E-02 2.3816E-03 2.4034E-02 4.2697E-02 5.6905E-02 6.5129E-02 

26 - 1 . 0552E- 0 1 -9.9286E-02 -8.2922E-02 -5.8451E-02 -2.8665E-02 3.2177E-03 3.3840E-02 6.0217E-02 8.0499E-02 9.2867E-02 

24 - 1 . 48 7 1 E- 0 1 - 1 . 3993E-0 1 -1.1705E-01 -8 . 28 39E-02 -4 . 1 159E- 02 3.5477E-03 4.6601E-02 3.3648E-Q2 1.1225E-H1 1.3057E-01 

22 -2 . 085 IE- 0 1 - 1.9635E-01 -1.6470E-01 -1.1732E-01 -5.9542E-02 2.5402E-03 6.2544E-02 1.1417E-01 1.5396E-01 1.8067E-01 

20 -2 . 9023E-0 1 -2.7366E-01 -2.3044E-0L -1.6562E-01 -8.6477E-02 -1.3181E-03 8.1339E-02 1 .5259E-01 2.0717E-01 2.4550E-01 

18 -4 . 0022E-0 1 - 3 . 7802E- 0 1 -3.1990E-01 -2.3253E-01 -1.2567E-01 -1.0551E-02 1.0167E-01 1.9890E-01 2.7260E-01 3.2674E-01 

16 -5.4567E-01 -5.1647E-01 -4.3965E-01 -3.2392E-01 -1.8207E-Q1 -2.9015E-02 1.2074E-01 2.5162E-01 3.4948E-01 4.2479E-01 

14 - 7 . 3408E- 0 1 -6.9643E-01 -5.9686E-01 -4.4653E-01 -2.6179E-01 -6.2067E-02 1.3388E-01 3.0732E-01 4.3490E-01 5.3806E-01 

12 - 9 . 7245E-0 1 -9.2496E-01 -7.9858E-01 -6.0735E-01 -3.7179E-01 -1.1639E-01 1.3450E-01 3.6019E-01 5.2329E-01 6.625LE-01 

10 - 1 . 266 1 E *00 - 1 . 2075E *00 -i.0506E*00 -8.1263E-01 -5.1888E-01 -1.9932E-01 1 . 1468E-01 4.0228E-01 6.0652E-01 7.9143E-01 

8 -1.6173E*00 -1.5466E*00 -1.3560E+00 -1.0665E+00 -7.0851E-01 -3.1761E-01 6.6339E-02 4.2434E-01 6.7465E-01 9.1588E-01 

6 -2 . 0239E*00 -1.9405E*00 -l.7142E*00 -1.3698E+00 -9.4328E-01 -4.7598E-01 -1.7139E-02 4.1731E-01 7.1732E-01 1.0256E*00 

4 - 2 . 4809E *00 -2.3840E*00 -2.1207E + 00 -1.7L96E + 0Q -1.2222E*00 -6.7590E-01 -1.3935E-01 3.7416E-01 7.2548E-01 1.1104E + 00 

2 -2 . 97986*00 -2.87026*00 -2.5703E+0Q -2.1124E+00 -1 .5438E*00 -9.I801E-01 -3.0254E-01 2.8938E-01 6.9190E-01 1.1606E*00 

1 -3.2181E*00 - 3 . 1035E*00 -2.7878E*0O -2.3049E + 00 -1.7043E*00 -1.0428E*00 -3.9124E-01 2.3459E-01 6.6435E-01 1.1537E*00 

IXI = 21 

IETA 

51 -4.491 6E-05 

50 1 . 7802E-05 

48 3 .57996-04 

46 9.9247E-04 

44 1 .9607E-03 

42 3.4559E-03 

40 5 . 6899E- 03 

38 8.9879E-03 

36 1 . 3808E-02 

34 2 . 0 793E-02 

32 3 . 0825E- 02 

30 4.5089E-02 

28 6.5129E-02 

26 9.2867E-02 

24 1 .3057E-01 

22 1.8067E-01 

20 2 . 4550E- 0 1 

18 3 . 2674E-0 1 

16 4 , 2479E-01 
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14 5 . 3806E-0 1 

12 6.6251E-01 

10 7 . 9 1 43E-0 1 

8 9 . 1 588E-Q 1 

6 1 . Q2S6E+00 

4 1 . 1 1 04E + 00 

2 1. 1 6 0 6 E ♦ 00 

1 1.3839E+00 

**** CONVERGED SOLUTION AT TIME LEVEL 210 


CONVERGENCE HISTORY FOR CONTINUITY EQUATION 


LEVEL CHGMAX CHGAVG 


I 

O.OOOE+OO 

0 . Q00E‘00 

2 

0 . OOOE + OO 

0 . OOOE+OO 

10 

1 . 174E-02 

O.OOOE+OO 

20 

4 . S6SE- 0 3 

0 . OQOE ♦ 0 0 

30 

8 .8 7 7E-04 

0 . OOOE+OO 

40 

4 . 4 18E-04 

0 . OOOE+OO 

50 

4 .900E04 

O.OOOE+OO 

60 

4 . 5 96E-04 

G. OOOE+OO 

70 

3 . 080E-04 

0 . OOOE+OO 

80 

1 . 648E-04 

0 . 00 OE * 0 0 

90 

7. 9S3E-05 

0 .OOOE+OO 

100 

3 . 96 IE- OS 

0 . 0 0 OE ♦ 0 0 

110 

2 .001E-05 

0 .OOOE+OO 

120 

1 . 01SE-05 

0 . OOOE+OO 

130 

S . 18 IE- 06 

0 . 000E + 0 C 

140 

2 . 5 30E-06 

0 . OQOE+OO 

ISO 

1 .217E-06 

0 . OOOE+OO 

) 60 

6 . 2S2E-07 

0 .000E+00 

170 

3 . 156E-07 

0. 000E+00 

180 

1 .477E-07 

0. OOOE+OO 

1 90 

7 . 4 15E-08 

0. 000E+00 

200 

3 .853E-C8 

0. 000E+00 


CONVERGENCE HISTORY FOR 


LEVEL 

CHGMAX 

CHGAVG 

1 

0. OOOE+OO 

0. OOOE + OO 

2 

0. 000E+00 

0. OOOE + OO 

10 

5.013E-02 

0. OOOE + OO 

20 

1 . 326E-02 

0 .OOOE+OO 

30 

1 . 717E-02 

0 . OOOE+OO 

40 

1 . 318E-02 

0 . OOOE+OO 

SO 

8 . 71 6E-03 

0 . OOOE+OO 

60 

4. 966E-03 

0 .OOOE+OO 

70 

2. 967E-03 

0. OOOE+OO 

80 

1 , 5 0 1 E- 03 

0 . OOOE+OO 

90 

7 .426E-04 

0 . OOOE+OO 

100 

3 . 712E-04 

0 . OOOE+OO 

I 10 

I , 85 IE-04 

0. OOOE+OO 

120 

9 . 473E-Q5 

0. OOOE + OO 

130 

4 . 75 IE-05 

0. OOOE+OO 

140 

2 . 270E-05 

0 . OOOE+OO 

150 

1 . 140E-05 

0. OOOE+OO 

160 

5 .877E-06 

0. OOOE+OO 

170 

2.766E-06 

0 . OOOE+OO 

180 

1 . 358E-06 

0. OOOE+OO 

190 

7 . 195E-07 

0 . OOOE+OO 

200 

S .402E-07 

0 .OOOE+OO 


CONVERGENCE HISTORY FOR 


LEVEL CHGMAX CHGAVG 


1 

0 . OOOE + OO 

0 . OOOE+OO 

2 

0 . OOOE + OO 

0. OOOE + OO 

10 

4 .443E-02 

0. OOOE + OO 

20 

6 . 572E-03 

0. OOOE+OO 

30 

9.466E-03 

0. OOOE+OO 

40 

W 120E-02 

0. OOOE+OO 

50 

l .026E-Q2 

0. OOOE+OO 

60 

6 . 902E-Q3 

0 . OOOE+OO 

70 

3. 666E-03 

O.OOOE+OO 

80 

1 , 8 QBE- 03 

0. OOOE+OO 

90 

9.71 7E-04 

0.000E+00 

100 

5 .048E 04 

O.OOOE+OO 

no 

2 . 473E-04 

0. OOOE+OO 

120 

1 .24 0E- 04 

O.OOOE+OO 

130 

6.17 OE- 05 

0 . OOOE+OO 

140 

3 . 022E-05 

0 . OOOE+OO 

150 

1 .551E-05 

0 , OOOE+OO 

160 

7.682E-06 

0 . QOOE+OO 

170 

3 . 632E-06 

O.OOOE+OO 

180 

1 . 86 IE- 06 

O.OOOE+OO 

190 

9 . 284E-0 7 

O.OOOE+OO 

200 

STOP 

4 . 299E-07 

O.OOOE+OO 


***« WITHOUT ARTIFICIAL VISCOSITY *«** 


RESL2 

RESAVG 

1 . 391E- 10 

2.S6 IE- 12 

1 . 12SE+02 

1 .725E + 00 

9.439E+01 

1 . 524E + 00 

4.700E+01 

6.S19E-01 

1 . 978E + 01 

2.374E-01 

8 . 325E + 00 

9.466E 02 

9.727E+00 

9 .824E-02 

a .981E + 00 

8.614E-02 

8 . 769E + 00 

8 .273E-02 

8 . 397E + 00 

7 . 931E-02 

8 .094E+00 

7 . 75 OE- 0 2 

7.971E+00 

7 . 683E-02 

7. 948E+00 

7 . 673E-02 

7 . 940E + 00 

7.673E-02 

7.92SE+00 

7.667E-02 

7 . 91SE+00 

7 . 663E-02 

7 . 912E + 00 

7 . 66 IE- 02 

7.91 1E+00 

7 . 660E-02 

7.910E+00 

7 . &60E-02 

7 . 909E + 00 

7 . 660E-02 

7 . 909E + 00 

7.660E-02 

7.909E+00 

7.6S9E-02 


RESMAX RESMAX LOC. 


2.354E-1 1 

( 5. 

46 ) 

2 . 180E + 01 

t 2 , 

2 ) 

2 . 402E + 0 1 

( 18. 

50 ) 

9 .234E + 00 

( 8 . 

49 ) 

S . 950E + 00 

( 10, 

SO) 

3 .26 1E + 00 

C 2, 

SO) 

2 .883E + 00 

C 10. 

SO) 

2 . 722E + 00 

C 10. 

SO ) 

2 . 634E + 00 

( 10 , 

50 ) 

2 .S39E + 00 

C 10. 

50) 

2 .469E + 00 

C 10, 

50) 

2 . 450E + 00 

( 10, 

50 ) 

2 . 448E + 00 

( 10, 

SO ) 

2 . 445E + 00 

C 10. 

SO ) 

2 .44 IE + 00 

t 10 . 

50 5 

2 . 439E + 00 

( 10 , 

SO ) 

2 . 438E + 00 

( 10 , 

SO ) 

2 . 438E + 00 

( 10, 

50) 

2 .438E + 00 

( 10. 

50) 

2.438E+00 

C 10, 

50 ) 

2.438E+00 

C 10 , 

50 ) 

2.438E+00 

( 10, 

50 ) 


X-MOMENTUM EQUATION 


*««» WITHOUT ARTIFICIAL VISCOSITY *«** 
RESL2 RESAVG RESMAX RESMAX LOC 


2 .838E-Q9 
4 .804E+02 
3 . 268E + 02 
1 . 550E + G2 
6 . 776E + 01 
4.61 7E+ 0 1 
3 .4 1 4E + 0 1 
2 . 918E+01 
2. 760E+01 
2. 667E + 01 
2 . 606E + 01 
2 . 587E + 01 
2 . 5 95E + 01 
2 . 60QE + 01 
2.599E+01 
2 . 5 98E + 0 1 
2 . 598E + 0 l 
2 . 598E+0 1 
2 . 598E+0 1 
2 .5^85+01 
2 .598E+0 1 
2 .598E+0 l 


5.347E- 1 1 
7 . 1 78E+0G 
5 . 660E+00 
2 . 484E+00 
1 . 302E+ 00 
8 .237E-01 
5 .833E-01 
4 .504E-01 
4 .07 9E-01 
4 . 07 IE- 0 1 
4. 135E-01 
4. 168E-01 
4, 193E-01 
4 . 2 1 IE- 0 1 
4.218E-01 
4 .220E-C1 
4 .222E-Q1 
4 .222E-01 
4 .223E-0 1 
4 .223E-0I 
4 .22SE-01 
4 .22SE-01 


5 .487E- 10 

8 .8 74E + 0 1 

9 . 730E+01 
4 . 188E+01 
1 .265E+01 
1 .624E + 01 
1 .321E+01 
1 .226E + 01 
1 . 161E + 01 
1 . 054E+0 1 
9 . 7 1 9E + 00 
9 . 372E+00 
9 . 32 3E + 00 
9 . 2 9 7E ♦ 00 
9 . 249E * 00 
9 .220E+00 
9 . 2 1 2E+00 
9 . 2 08E+QO 
9.205E+00 
9 . 2 04 E + 0 Q 
9.203E+0Q 
9 . 20 3E + 00 


t 18 . 50 ) 
t 2, 3 ) 

t 2, 49 ) 
{ 5.491 

( 7.50) 

( 2.50) 

( 2. 50) 

( 2. 50) 

( 2. 50) 

( 2, 50) 

( 2. 50 ) 

C 2 , 50 ) 
( 2.50) 

( 2, 50) 

( 2.50) 

{ 2. 50 ) 

( 2. 50 ) 

t 2. 50 ) 

( 2. 50 ) 

( 2. SO) 

( 2. 50) 

( 2. SO) 


Y-MOMENTUM EQUATION 


**'* WITHOUT ARTIFICIAL VISCOSITY 


RESL2 

RESAVG 

2.679E-09 

4.900E-11 

S.649E+Q2 

6 . 258E+00 

2 . 749E + 02 

5.418E+00 

1 . 652E * 02 

2 .501E+00 

8 . 003E+01 

1 . 183E+00 

3 .61 1E + 01 

6.420E-01 

3 .83 1E + 0 1 

5. 167E-01 

3.395E+01 

4.190E-01 

3.294E+01 

3 . 9Q3E-0 L 

3. 192E + 01 

3 . 79 3E-0 1 

5. 1 15E+01 

3 . 789E-0I 

3 .088E + 01 

3 . 791E-0 1 

3 . 0B5E + 0I 

3. 797E-01 

3.085E+01 

S.808E-01 

3.082E+01 

3.812E-01 

3 » 080E + 0 1 

3.81SE-01 

3.079E+01 

3.814E-01 

3 . 079E + 01 

3 .8 14E-01 

3.079E+01 

3.814E-01 

3 . 079E + 0 1 

3.814E-01 

3 . 079E + 01 

3.814E-01 

3 . 079E + 01 

3.814E-01 


RESMAX 

RESMAX LOC 

6.109E-10 

( 

IS, 

46 1 

S. 732E+01 

( 

16. 

2 ) 

7 . 3 92E + 01 

C 

14. 

SOI 

5.891E+01 

( 

10. 

49) 

2.426E+01 

( 

10, 

SO) 

1 .0SSE + 01 

( 

10, 

SO) 

1 . 242E+01 

( 

10, 

SO ) 

1 . 160E + 01 

i 

10, 

SO) 

1 . 1 17E + 01 

I 

10, 

SO) 

1 .077E + 01 

t 

10, 

SO ) 

1 .047E + Q1 

( 

10, 

SO) 

1 . 038E + 01 

( 

10, 

SO) 

1 .03 7E + 01 

I 

10, 

SO) 

l .035E + 01 

( 

10 , 

SO) 

1 .03SE + 01 

( 

10. 

50) 

1 .033E + 01 

( 

10, 

50) 

1.Q32E+QI 

c 

10, 

SO) 

1 .032E + 01 

( 

10, 

SO ) 

1 . 032E + 0 1 

t 

10. 

SO) 

1 .032E + 01 

( 

10, 

SO) 

1 .032E + 01 

( 

10. 

SO) 

1 .032E + 01 

< 

10. 

SO) 


***<• WITH ARTIFICIAL VISCOSITY "»** 


RESL2 

RESAVG 

RESMAX 

RESMAX LOC 

1 . 046E-Q9 

1 .946E-11 

1 . 157F-10 

( 20, 50) 

1 . 1 2 3E + 02 

1 . 727E + 00 

2. 1S3E+01 

t 2, 2) 

6.449E+01 

1 . J67E + 00 

1 . 181E+01 

C 2, 50) 

3 . 148E+01 

S .232E-01 

4. 983E+00 

C 9, 50) 

9.696E+00 

1 . 73SE-01 

2 . 017E+00 

( 17, 

50) 

1 .554E + 00 

3 . 352E-02 

3 . 134E-01 

{ 3, 

50 ) 

9. 15SE-01 

1 .82 IE- 02 

1 . 584E-0 1 

( S. 

SO ) 

5 . 594E-0 1 

1 . 045E-02 

8 .591E-02 

C 2, 13) 

3 . 2 7 7E-01 

6 .398E-03 

5. 333E-02 

C 2,11) 

1 .888E-01 

3 . 460E-03 

3.81 7E-02 

( 3, 

SO) 

1 .051E-OI 

1 .729E-03 

2.93LE-02 

C 3, 

SO) 

4 .537E-02 

7 . 905E-04 

1 . 145E-02 

( 3 , SO ) 

2. 194E-02 

4 . 136E-04 

3 . 946E-03 

( 2, 

9 ) 

1 . 1 9bE- 02 

2 . 22 IE- 04 

2.051E-03 

C 3, 

44 ) 

7.243E-03 

1 .232E-04 

1 .83 7E-03 

C 3. SO) 

3.405E-03 

5. 734E-0S 

9. 701E-04 

C 3 . 

50) 

1 .438E-03 

2. 64 IE- OS 

2 .876E-04 

{ 3, SO) 

7 .458E-04 

1 . 350E-05 

1 . 64 1 E- 04 

( 3, 50) 

4 . 039E-04 

6. 727E-06 

1 . 144E-04 

( 3, 50) 

1 . 728E- 04 

3 . 027E-06 

4 .309E-05 

( 3, 

50) 

8 .463E-05 

1 . 622E-06 

1 . 4 9 1 E- 05 

( 3, 

50 ) 

5.003E-05 

9 .401E-07 

1 . 1 1 IE- OS 

C 3 . 

SO ) 


KID* 

WITH ARTIFICIAL VISCOSITY ***» 

RESL2 

RESAVG 

RESMAX 

RESMAX LOC 

3 . 008E-09 

5.676E-11 

4 .S08E- 10 

t 18, SO) 

4. 770E + 02 

7 . 137E + 00 

8 .S47E + 01 

( 2 , 3 ) 

2.632E+02 

5 .37SE + 00 

6.270E+01 

{ 2, 50) 

1 . 055E + 02 

1 . 7S6E + 00 

2. 392E+01 

C 3, 50) 

3 . 087E + 01 

6 .419E-01 

5. 17SE+00 

t 20, 50) 

1 . 902E + 01 

4.082E-01 

2 .223E+Q0 

( 7,49) 

1 . 187E + 01 

2 .266E-0L 

1 . 666E+00 

[ 2, 20) 

6 . 928E + 0 0 

1 . 301E-01 

1 . 062E+00 

t 2, 17) 

3.630E+00 

6 . 774E-02 

5 . 766E-01 

t 2, 14) 

1 .814E + 00 

3 .477E-02 

2. 785E-01 

( 2, 13) 

9. 171E-01 

I . 750E-02 

1 . 3 78E-01 

( 2, SO) 

4.641E-01 

9 . 083E-03 

6 . 773E-02 

( 2.11) 

2.3S9E-01 

4 . 555E-03 

3 . 347E-02 

( 2.11) 

1 . 2 08E-0 1 

2.285E-03 

1 . 7S7E-02 

{ 6. 39) 

6 . 1 12E-02 

1 . 164E-03 

8.743E-03 

C 2,50) 

2.877E-02 

5 . 508E-04 

4 . 373E-03 

C 2.50) 

1 . 382E-02 

2.6 1 5E-04 

2 . 037E-03 

( 2,11) 

7.039E-03 

1 . 338E-04 

1 .032E-03 

c 2, m 

3.480E-03 

6 . 649E-05 

5 . 25BE-04 

( 2, SO) 

1 . 664E-03 

3 . 304E-05 

2 . 5 9 1 E- 04 

C 2. 28) 

8 . 747E-04 

1 . 714E-05 

1 .2S9E-04 

t 2. in 

4 . 931E-04 

9 ,5966-06 

7 . 920E-O5 

( 2, 24) 


n n * n 

WITH ARTIFICIAL VISCOSITY • « « 

1 II 

RESL2 

RESAVG 

RESMAX 

RESMAX 

[ LOC 

2.679E-09 

4.90QE-1L 

6. 109 E- 10 

t IS. 

46 ) 

5 , 63 7E + 02 

6 . 237E + 00 

5.826E+01 

( 16 . 

2) 

2 . 124E+02 

5. 159E + 00 

2.592E+01 

( 8 , 

50) 

1. 127E + 02 

1 .849E + 00 

2 . 254E + 0 1 

( 10. 

50) 

2.965E+01 

5 .69 IE- 01 

6 . 716E+00 

( 11. 

SO) 

1 .714E + 01 

3 .868E-01 

1 .756E+00 

( 4 . 

48) 

1 . 22 OE + 0 1 

2 .284E-Q1 

1 . 653E + 00 

1 s. 

49) 

8 .298E+00 

1 .4Q0E-01 

1 .287E+00 

( 4 , 

6) 

4 . 9SSE + 00 

B.192E-02 

8 . 3B1E-01 

( 3, 

7) 

2 . S9SE+00 

4.512E-02 

4 .502E-01 

l 3, 

7) 

1 . 300E + 00 

2. 316E- 02 

2 . 181E-01 

( 3, 

7 1 

6.622E-01 

1 . 171E-02 

1 .099E-01 

( 3, 

6) 

3 .333E-Q1 

5.827E-0S 

5 . 686E-02 

t 3, 

6 ) 

1 . 702E-0 1 

2 .854E-03 

2 . 907E-02 

l 3, 

6) 

8 . 763E-02 

1 .512E-03 

1 . 455E- 02 

( 3 . 

6) 

4 . 175E-02 

7 .3S4E-04 

6 . 98 1 E- 03 

t S, 

6 1 

l .953E-02 

3 . 383E-04 

3 .474E-03 

( 3, 

6) 

9 . 856E-03 

1 .68SE-04 

1 . 809E- 03 

C 3, 

6) 

4 . 9 32E-03 

8 .424E-05 

8. 7UE-04 

C 3, 

6) 

2 . 399E-03 

4. 108E-05 

4. 189E-04 

( 3, 

6) 

1 .265E-03 

2. 109E-05 

2.2QBE-04 

( 3- 

6 ) 

7.242E-04 

l .207E-05 

1 .456E-04 

( 3, 

26) 


This case used 6.5 seconds of CPU time. 
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original p/>.Q?r ,c> 
OF poor quality 


Standard PROTEUS Output for Viscous Flow Case 

The output listing for the viscous flow case is shown below. In the flow field printout, only the last time 
level is included. Note that a converged solution is obtained at time level 360, and that this level is auto- 
matically included in the standard output and in the plot file. 


NASA LEWIS RESEARCH CENTER 
INTERNAL FLUID MECHANICS DIVISION 
2-D PROTEUS VERSION 1.0 
SEPTEMBER 1989 


VISCOUS FLOW PAST A CIRCULAR CYLINDER 


SRSTRT IREST = 0, NRGIN = 

810 IDEBUG = 20*0 » IPL0T = 

IPRT1A = 1 , 2 . A , 6, 8, 

50, 51 . 2 A *0 , IPRT2A = 1 , 

A2, 


11, NROOUT = 12, NRXIN = 13, NRXOUT = 1A, SEND 

-I. IPLT = 0. IPLTA = 101*0, IPRT = 10000, IPRT1 = 2, IPRT2 = 2. IPRTA = 101*0, 

10, 12, LA, 16, 18, 20, 22, 2A , 26, 28, 30, 32, 3A , 36, 38, A0, A2, AA , A6, A8 , 
2 » e *' 8 - 10 » 12, 1A, 16, 18, 20, 22, 2A , 26, 28, 30, 32, 3A , 36, 38. A0, 


AA, A6 , A8 , 50, 51, 2A*Q, IUNITS = 0, IVOUT = l, 2, 

NPLOT s 9, NPLQTX = 8, NSCR 1 = 20, SEND 
&GMTRY IAXI = 0, NGEOM = 2, RMAX = 30.0, RMIN * 1.0, 
YMAX = 1.0, YM IN = 0.0, SEND 

8FLOW GAMR = l.A, HSTAGR = 0.0, ICVARS = 2, I EULER = 

KTR = 0.0, LR = 1.0, MACHR s 0.2, MUR = 0.0, PRLR = 

UR = 0.0. SEND 

SBC IBC1 = 510*0, I8C2 

FBC1 = 510*0.0, 

GTBC1 = 100*0.0, 

&NUM ALPHA 1 = 0.5. 

IPACK = 0, l. N1 

2*0.0, THY = 1.0, 

STIME CFL = 10.0. 

1.25, 


32, A 7*0 , NGRID = 7, NHIST = 10, NHMAX = 100, NOUT = 6, 

180.0, THMIN = 0.0, XMAX = 1.0, XMIN = 0.0, 

1LAMV = 0, I SWIRL = 0, I THIN = 2*0, 

1716.0, RHOR = 7 . 6A5E-Q2 » TR * 519.0, 

JBC2 = A2 , 11, 21, 7*0. 

JTBC2 s 10*0, NTBC = 0, NTBCA = 10*0, 

5*1.0, IAV2E = 0, IAV2I = 1, IAVAE = l, 

2*0.0, THE = 1.0, 2*0.0, THX = 1.0, 

10*1. 0E-Q2 > DTF1 s 


0, IHSTAG = 1 . 

0.0, RER = 20.0. RG = 

= 510*0, JBC 1 = A2, 12, 21, 2*0, A2, 12, 21, 2*0, 

FBC2 = 510*0.0, GBC1 = 10*0.0, G8C2 = 10*0.0, JTBC1 = 10*0, 

GTBC2 - 100*0.0, KBC1 * 2*0, KBC2 = 2*0, SEND 

ALPHA2 = 0.5, CAVS2E = 5*1.0, CAVS2 1 = 5*2,0. CAVSAE = 

= 51, N2 = 51, SO = 2*0.0, 10000.0, 1.001, THC = 1.0, 

2*0.0, THZ = 1.0, 2*0.0. SEND 

9*1.0, CFLMAX = 10.0, CFLMIN = 0.5, CHG1 = A.0E-02, CHG2 = 6.0E-02, DT = 


DTF2 = 1.25, DTMAX = 1.0E-02, DTMIN s 1.0E-02, EPS s 5M.0E-03, ICHECK = 10, ICTEST 
NDTCYC = 2, NITAVG = 10, NT I ME = 1000, 9*0, NTSEQ * 1. SEND 
STURB APLUS = 26.0, C8 = 5.5, CCLAU = 1.68E-02, CCP = 1.6, CKLEB = 0.3, CNA = 2.0 

CWK = 0.25, ILDAMP = 1, INNER = 1, ITETA = 0, ITURB = 0, ITXI = 1, IWALLl * 2*0, 
REXT1 = 0.0, REXT2 = 0.0, SEND 


3, IDTAU = 5, 1DTMOD s l, 

CNL = 1.7, CVK = 0 . A , 

IWALL2 = 2*0, PRT = 0.91, 


NORMALIZING CONDITIONS 


LENGTH, LR 
VELOCITY. UR 
TEMPERATURE. TR 
DENSITY. RHOR 
VISCOSITY, MUR 
THERMAL CONDUCTIVITY, KTR 
PRESSURE, RHOR*UR * *2 
ENERGV/VOL . , RHOR*UR*«2 
GAS CONSTANT, UR**2/TR 
SPECIFIC HEAT. UR**2/TR 
STAGNATION ENTHALPY, UR* *2 
TIME, LR/UR 


1 , OOOOE^OO 
2 . 2332E + 02 
5. 1 900E ♦ 02 
7 . 6A50E-02 
8.5366E-01 
1 .0192E-01 
3 .8 1 29E + 03 
3. 812 9E + 03 
9. 6096E + 01 
9 . 6 0 96E + 0 1 
A . 98 7AE ♦ QA 
A . A 7 78E- 03 


FT 

FT/SEC 

DEG R 

LBM/FT3 

LBM/FT-SEC 

LBM-FT /SEC3-OEG 

LBM/FT-SEC2 

LBM/FT-SEC2 

FT2/SEC2- DEG R 

FT2/SEC2-DEG R 

FT2/SEC2 

SEC 


R 


REFERENCE CONDITIONS 


REYNOLDS NUMBER, RER 
MACH NUMBER, MACHR 
SPECIFIC HEAT RATIO, GAMR 
LAMINAR PRANDTL NUMBER, PRLR 
"REFERENCE" PRANDTL NUMBER, PRR 
SPECIFIC HEAT AT CONST. PRESS. 
SPECIFIC HEAT AT CONST. VOL. 

GAS CONSTANT , RG 
PRESSURE, PR 

STAGNATION ENTHALPY, HSTAGR 


2 . 00G0£ + 0 1 
2.0000E-01 
1 . A 0 0 0E + 0 0 
5 . 0306E + 0A 
8 . 0A8 9E ♦ 02 
6 . 0060E*03 
A .2900E*03 
1 . 7 1 60E*03 
2. 1 1 62E*03 
3. 1A21E*06 


FT2/SEC2-DEG R 
FT2/SEC2-DEG R 
FT2/SEC2-DEG R 
LBF/FT2 
FT2/SEC2 


BOUNDARY CONDITION PARAMETERS 


JBCl(l.l) = A2 
JBCK2.1) = 12 

JBC 1 C 3,11= 21 


GBC Ml.]) 
GBC1 (2.1) 
GBC 1 (3. 1 ) 


0 .0000E*00 
0 . OOOOE+OO 
0 . OOOOE^OO 


JBC2C 1 ,2 ) 
JBC2 (2,2) 
JBC2 (3,2) 


JBC2 (1,1) 
JBC2 (2,1 ) 
JBC2 (3,1 ) 


X- VELOCITY 


AT TIME LEVEL 360 


-1 GBC2 (1,2) 
-1 GBC2 £2,2) 
-1 GBC2 (3,2) 


A2 GBC2 (1,1) 
11 GBC2 (2,1) 
2 1 GBC2 ( 3 , 1) 


0.0000E+Q0 
0.0000E+00 
0 . OOOQE + OO 


0 .0000E*00 
0 . OOOOE*QO 
0. 0000E+00 


JBC 1(1 . 21 = 

A2 

GBC1U.2) = 

0 . 00Q0E*00 

JBC1 (2,2) = 

12 

GBC 1(2,2) = 

0 . 0000E ♦ 00 

JBCK3.2) = 

21 

GBC1 (3,2) = 

0. OOOOE*OQ 


IXI : 

= 1 

2 

A 

I ETA 




51 

9 . 6267E- 0 1 

9.661 0E-01 

9. 7765E-01 

50 

9.661 OE-O 1 

9.661 OE-O 1 

9. 7765E-01 

A8 

9 .A739E-01 

9.A739E-01 

9 . 6 A 95E-0 1 

A 6 

9. 1A98E-01 

9. 1A98E-01 

9 . A529E-01 

AA 

8 . 6066E-01 

8 . 6068E-0 1 

9.128 OE-O 1 

A2 

7 . 7663E-0 1 

7 . 7663E-0 1 

8 . 6 0A OE-O 1 

A0 

6 . 580 1 E- 0 1 

6 . 580 IE-0 1 

7 . 7921E-01 

38 

5 . 0790E-01 

5.0790E-01 

6.612 0E- 0 1 

36 

3.A250E-01 

3 . A250E- 0 1 

5.081 OE-O l 

3A 

1 . 8 780E-0 1 

1 .8 78 0E- 0 1 

3 . 3899E-01 

32 

6. 7106E-02 

6.71 06E-02 

1 .8537E-01 

30 - 

• 1 . 1 1 A IE- 02 

-1 . 11A1E-02 

7 . 1 A 75E-02 

28 - 

5.2952E-02 

-5.2952E-02 

1 . 2295E-03 

26 - 

6 . 9252E-02 

-6 . 9252E-02 

-3 . A973E-02 


6 

8 

10 

l . 0003E + 00 

1 . 0 1 A2E*00 

l . 0151E+00 

1 . 0003E + 00 

1 . 0 ! A2E*00 

1 . Q151E+00 

9.968 OE-O 1 

1 -0152E*00 

1 .017AE*00 

9.9579E-01 

1 .02Q5E+00 

1 .0209E*00 

9 .9A83E-01 

1 .0305E+00 

1 .0282E*00 

9. 8977 E- 01 

1 .0A55E+00 

1 .OA21E*00 

9. 7073E-01 

1 .0625E*00 

1 . 06A9E+00 

9. 19A7E-01 

1 .0702E*00 

1 .0962E+0Q 

8. 1517 E— 0 l 

1 . 0A28E *00 

I . 1237E+00 

6. 5181 E- 01 

9 . A608E-0 1 

1 . 1127E+00 

A . 55AAE- 0 1 

7.67B1E-01 

1 ,0170E*00 

2 . 7325E-0 1 

5 . A509E-0 1 

8. 2377 E- 01 

1 .3791E-01 

3 . A0 18E-0 1 

5 . 8AAQE-0 1 

5.2A67E-02 

1 .8883E-01 

3 . 6983E-0 1 


12 

14 

16 

1 .01 13E*00 

1 . 000 1 E+00 

1 .0003E+00 

1.0U3E*00 

1 .0078E*00 

1 .007AE+00 

1 .0168E + 00 

1 .0178E*00 

l .0180E+00 

1 . 0198E+00 

1 .022AE*00 

1 .02A2E+00 

l .0257E*00 

1 . 0290E+00 

l .0312E+00 

1 .0373E*00 

1 .OA05E+00 

1 .0A25E+00 

l . 0569E+00 

I . Q582E+0Q 

1 .Q593E+00 

1 . 08 7 1E + 00 

1 .083AE+00 

1 . 0821E + 00 

1 . 1271E*00 

1 . 1 180E ♦OO 

1 . Ill 7E*00 

1 . 1622E*00 

l . 1600E*00 

1 . 1 A85E*00 

1 . 15 1 AE*00 

1 . 191AE*00 

1 . 188AE*00 

1 .0A3IE*00 

1 . 1663E*00 

1 .2088E + 00 

8 . 329AE-0 1 

1 ,0355E*00 

1 . 1 599E* 00 

5.8581E-01 

8. 101 IE- 01 

1 .0026E + 00 


18 

1 .0006E*00 
1 . 0072E+ 00 
1 . 0 1 75E + 00 
1 . 02A1E + 00 
1 . 031AE+00 
1 . 0A2 1E + 00 
1 . 05 7 7E + 0 0 
1 . 0 78 7E + 00 
1 . 1052E*00 
1 . 1372E+00 
1 . 17AAE*00 
1 .2096E*00 
1 . 2 13 1 E*00 
1 . 1338E*00 
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24 ■ 6 . 939?E- or -6 . 93926-02 -4.8b06E-02 4.7725E-03 9 . 1 064E - 0?. 

27 -b.f>7<m 02 -6 . or*»lfc- 02 -4.3654E-02 -1. 81846-02 3.3 154E-02 

20 - <-4 . / 1 i It- 0? -4./1/1E-Q2 -4.L6u2E~02 2.o257E-02 1.76536-03 

IS -3.5 78 6E- 02 -5.3786E 02 -3.2198E-02 -2.62S7E-02 "1.30366-02 

!b -2.23626-02 -2.2362E-02 -2.30B4E-02 -2.2B79R-02 -1.810/6-02 
14 -1.37506-02 -1.3750E-02 -1.55446-02 - 1.7 78 7E-02 -1.79546-02 
12 •• 7 . 8 b 0 OE- 0 2 -7.8600E-03 -9.97256-03 -1.3170E-02 - 1 . 5 364E- 02 
[0 -4.1S1/L-D3 -4.151/E-03 -6.1114603 -9.24356-03 -1.19376-02 
8 -l .<*»** I E- 0 3 - 1 . IE-03 -3.556 7E--03 -6.1124E-03 -8.5082E-03 

6 -8.2 68 96- 04 8.2689E-04 -1.915BE-03 -3.7040E-03 -5.454oE-03 
4 -2.657 7E- 04 -2.6577E-04 -8.79276-04 -I.8889E-03 -2.9023E-02 
2 -4.20/26-05 -4.2Q72E-Q5 -2.2897E-04 -5.5b62E-04 -8 BO HE- 04 

; O.OOOOE+OO O.OOOOE + OO 0 . QOOOE+QG 0 . OOOOE *00 0 . OOCOE *00 

I XI -■ 20 22 24 26 28 


fF fA 
SI 

1 • 0 0 08E 4 0 0 

1 . OO1OE+0O 

1.001 1E+03 

1 .001 1E+00 

1 . 001 1L+00 

50 

1 .00b9E + 0U 

l . 0066E + 00 

1 .0060E+00 

1 . 0053E+00 

1 . 0043E+00 

48 

1 .0165E + 00 

1 . 0153E+00 

1 .0138E+00 

1 . 0 120E+00 

1 . 0 1 OOE+OO 

46 

1 . 0232E+Q0 

1 . 021 6E+00 

1 .0195E+00 

1 .01 70E+00 

1 . 0 1 4 l E + 00 

4 4 

1 . 0303E + C0 

1 . 0283E+00 

1 .02S6E+00 

1 .0222E+00 

1 .O183E + O0 

4 2 

1 . 0403E + 00 

1 . 0374R+00 

1 . 033BE+00 

1.0288E+00 

1 . 0235E+ 00 

4 0 

1 . 0S44E + 00 

1 .0498E+00 

1 .0441E+00 

1 .0374E+00 

1 .0300E + 00 

38 

1 . 0732E + 00 

1 . 0662E+00 

1 . 0B79E+O0 

1 . Q485E+00 

1 . 0383E ♦ 00 

36 

1 . 0 9 b8E 4 00 

1 . 0868E+00 

1 . 0753E+00 

1 . 0o24E + 00 

1 . 0485E+00 

54 

l . 1 2S2E + 00 

1.111 7E+00 

1 . 0 964E ♦ 00 

1 .0795E+00 

1 . 0612E+00 

3? 

1 . 1583E + 00 

1 . 1409E+00 

1 . 121 7E+00 

1 . 1003E+00 

1 . 0770E+00 

30 

1 . 194 9E + 00 

1 . 1 748E+00 

1 . 1518E+00 

1 . 12S9E+00 

1 .0970E+00 

28 

1 . 2 222E + 00 

1 .2097E+00 

1 . 1866E+00 

1 . 1S72E + 00 

1 . 1228E+00 

2 t> 

1 . 2 02 1 E * DC 

1 . 2 2 i 7 L + 0 0 

1 .2162E+00 

1 . 1910E + 00 

1 . 1541E+00 

24 

1 . 0898E+00 

1 . 1 726E+00 

1 . 207SE + 00 

1 .2064E+00 

1 . 1795E+00 

22 

8 . 9 2 5 3 E - 0 1 

1 .0 J01E+Q0 

1 . 1209E+00 

1 . 1648E+00 

1 . 1677E+C0 

20 

6 . 701 7F • 0 1 

8 . 2 7 6 4 E - 0 1 

9.5654E-01 

1 . 0447E+00 

1 .0878E+00 

18 

4 . 7 4 5 S f: -0 1 

6 . 215 IE- 01 

7 . 584 7E- 0 1 

8 . 6 94 OE- 0 1 

9 . 4 2°5E- 0 1 

16 

3.2334? Oi 

4 . 4 b2 7E- 0 1 

5 . 7044E-01 

6 .816 3E- 0 1 

7.o673E-01 

14 

2.148 2F. 01 

3 . 1 078E 01 

4. 1 320E-0 1 

5. 109?E Cl 

5 . 92 3 1 E 01 

12 

1 . 3971E 01 

2 . n 0 1 F- 0 1 

2.9012E-01 

3. 6897E-C1 

4 . 3809C-0 1 

10 

8 .8671E 02 

1 . 3924E-Q1 

1 . 9696E-0 1 

2.5625E-01 

3.1 005E-01 

8 

5 . 42 O Q £ - 02 

8 . 8 1 04£ - 02 

1 . 2 762E-0 1 

1 . 6908E-0 1 

2. 0760E-01 

6 

3 . 0898F-02 

5 . 1726E- 02 

7.6590E-02 

1 . 026 7E-C 1 

1 .2750E-CI 

4 

1 . 5 0 24E 02 

2.577 9R-02 

3 . 8668E-02 

5.2557E- 02 

6.5832E 02 

2 

4 . 1 083F -03 

7 . 1910E-03 

1 .0917E-02 

1 .496bE- 02 

1 .88 6 9E-02 

1 

O.OOOOE+OO 

0 . OOOOE +00 

O.OOOOE+OO 

O.OOOOE+OO 

0 . OOOOE +00 


7.12b! E- 0 1 3. 7727F- 0! 5 . n-iS^E-O / .bHb/E-01 9 -B247E -01 

i , 0 9 e 0 E - 0 1 2.17471 01 3 . .. 2 7 OE- " r B . -;<* 0 (iE - 0 1 7.19/2E01 

4.6946E-02 1.158/h-Ol 2 . ' 4 9 '♦ E • (j 1 3.4o0/E-01 B.0290E-01 

1 . 1 72 4 E- 07 5.3H?t>t-02 1 . i *>*, i f ■■ 0 1 2.1301F-01 3.337 1E-01 

-B.9U7E-03 1.873JE-02 b.lU/iE-O: 1.25516-01 2.1381E-01 

- 1 .?9«/E-02 8. 521 66- 04 ?./SSbE-U2 7.09536-02 1.3348E-0L 

- 1 .4 1306-02 -6.740/6-1).; 9.7778E-05 3.H398C 02 8.1487E-02 

-1.2 38 IE- 02 --8.&4&5E-U3 1.-338E-03 1.9748F-02 4.8B47E-C2 

-9.47416-03 - 7.722 1E-03 - 1 . 8 *8 »E-0 3 9.493/E-03 2.7901E-02 

6.357&E 03 -S.b7b3F.- 02 -2.44S*.h 02 4 . 1 14 7E-03 1 .S009E-02 

-3 . 48876- 0 2 -3. 24296-03 -l.?B2bt-03 !.4b2?E- 03 6.92&2F-03 

-1.0430E-02 -1 00031-02 -b.OSB E- 04 2.79brtE--04 1 .8107E-03 

0. OOOOE *30 0. OOOOE *00 O.OOOCE+QO O.OOOOE+OO O.OOOOE+OO 

20 32 34 3b 38 

1 . 00 1 06 + Q 0 1 . 0008E *00 l . OOObt. * 00 1. 00036+00 I.OOOUL + QO 

1 . 003 1 E * 0 0 I.C018E+Q0 I.0004E+CQ 9.^898F 01 

1 . 00 78E * 00 l.OObbfc+OO i. 00376+00 1.0009E+00 9.9881E-01 

1 . 0 1 1 1 E* QO 1 . 00 79E+GQ 1-0;'18E+0P 9.98936-01 

1 . 0 142E ♦ 00 1 . 00^8 E* 00 1 . OOSBE* CU 1.00L3E+00 9.9744E-01 

1.01 78E ♦ 00 1.01196+00 1 . .fM&UE + IiO 1.00U3E+00 9.95006-01 

1 . 022 1 E * 00 1 . 0 l 4 0 E + 0 0 1.OO6OE+O0 9.9821E-Q1 9.9094E-01 

1 . 02 74E ♦ DO 1.01 64E * 00 J.Q053E+00 9.946/E-Ol 9.8469E-01 

1 .0339E+00 1 . 0 189E+0Q 1.OO39L+O0 ^.S^SrE-Ol 9-7Sb2E-01 

1 . 0 4 1 8 E ♦ 0 0 1 021 8E *00 l.QOlbE+OQ 9.B186E-01 < >.b3l5E-01 

1 . OB 1 9E *00 1 . 025 7E ♦ 00 ? . 0UU 9E- 0 1 9. 72356-01 9.4b91E-01 

1 . 06B4E *00 l.OSliT+OO 9.9bb4E 01 Q .ol37E-01 9.2711E-01 

1 . 083 9E ♦ 0 0 1.04 145 +00 9.^b.:^E 0 1 <» . SO 0 9E- ■ 0 1 9.0452E 01 

1 . 1 08 bE ♦ 0 0 l.ilboSE + OO 9.9'i 0 /,f_ 01 “.4019r-0l 8.8062E Cl 

1 . 1 3 4 0 F. ♦ 0 0 I . 0 7 5 OE ♦ 0 0 1 . 01.1 o 7L + U 3 4.37 7 OE- 0 1 8.5o9oE-01 

1 . 137 76 *00 1 . CH23E + 00 1.O0H7E+DO ?. 22166-01 8. 319*6-01 

1 . 08 7 9E * :ji 1.0SQ9F+00 4.B424E-01 8.9bSbE-01 7.46<,8E-01 

9.757/E-01 9.b251E-01 4.M48E-01 3.2BlbE-01 7.3697E-01 

8 . 1 634E- 0 1 8 . 2 b 2 S E - 0 1 7 . 9 0 1 7.2B3bE-01 b.4851E-01 

6. 4?0bE- 01 6 . b8 7 bE - 0 1 b.Sli.OE 0 1 O.1035E-01 B.3949E-03 

4 884SE-01 S.1 228E 01 b . »•* 7 U F 1 4.78B8E-01 4.242BE-01 

3.511 9E-0 1 3.7391E-01 3.7bOUE-OI 3.B437E-01 3.1491E-01 

2 . 3800E- 0 1 2.BB87E-01 2.B8B2E-01 2.4BBOE-01 2.1856E-01 

1.475 OE- 0 1 1.5973E 01 1.6227E-01 1.B464E 01 1.3785E-01 

7.6682E-02 8.3484E 02 8.S1B0E 02 8.1353E-02 7.2S82E-02 

2 .209 iE- 02 2.414 BE- Cl 2 2.4b9«E-02 2.3642E-02 2 .U07E-02 

0 . OOOOE + OO 0.00 OOF. *00 0.0d00fc*00 0.0000E*00 0.0000£*00 


TXT 
It T A 

= 4 0 

4 2 

44 

4 6 

48 

50 

S ■ 

SI 

9 . 997 9F- 0 1 

9 . 9bS 3E-0 1 

9 . 9929E-01 

9.991 OE- 0 1 

9 . 98 9 7E-01 

9 . 9H906-01 

9.94146-01 

SO 

9 . 962 9E -01 

9. 9S13E-01 

9.941 7E-01 

9 . 9343E-0 1 

9.9295E-01 

a. a^SE-oi 

9 . 92 78E- 0 1 

4 3 

9 . 0 68 6F - 0 1 

9 . 9S 1SE- 0 l 

9 . 9373E-01 

9 . 92 65 E- 0 1 

9.920 OE- 0 1 

9.91 79E-01 

9.91 79F-L1 1 

4 b 

9 . 9 6 5Hf- - 0 1 

9.941 hE-01 

9 . 92 35E-0 1 

9.9102E-01 

9.9023E-01 

9 . 9000E-0 1 

9 . 9000E-0 1 

i.4 

9 . 9 i u ! E - it 1 

9 . «J8bF-0 1 

9.8838E-01 

9.86B6E-01 

9 . 855QE- 0 1 

9.8B18E-UI 

9.8518? 01 

4 2 

9 . 902ir oi 

9 .S607F-01 

9.8270E- 01 

9.8023F-01 

9. 7877E-01 

9. 783IE-01 

9. 783 IF 01 

40 

9.843 7 E 01 

9 . 78 7 OF- 0 1 

9. 74Q9E-0I 

9.7 06 9E- 01 

9 . 6864E-0 1 

9 . 6 7 98E 0 1 

9 . 6/9J-U.- iJ 1 

38 

9. 756 SE - 01 

9 . 6784E-01 

9. 6146E-01 

9 . 567 1 E- 0 1 

9 . B382E- 0 1 

9 . 5284L-GI 

9. 5284 L 01 

3 6 

9.6318E-01 

9 . 523BE-0 l 

9.4546E-01 

9. 3681E-01 

9. 3269 E —01 

9.3124E-01 

9.3124F. -01 

34 

9 . 460 OF 01 

9 . 3100E-01 

9. 1860E-0 1 

9 .0925E-01 

9. 0337 E -01 

a .01226-01 

9 . 0122E-01 

32 

9 . ? 3 4 1 £ o 1 

9 . 026SE-01 

8 . 8539E-0 1 

8 . 7226E-0 1 

8.6388E-01 

8 . 6 0 7 1 E - 0 1 

8.60716-01 

30 

8 . 9S09E-0 1 

8.665 bE— 0 1 

8 . 4263E- 0 1 

8.2429E-01 

8, 1245E-01 

8 . G783E- iJ 1 

8 . 0 7 8 3 E - O 1 

28 

8.6] 42F -01 

8 .22 6 IE- 01 

7.8979E-01 

7 . 6446E-0 l 

7.4/94L- 01 

7.4I32E-01 

7. 4 1376-01 

2 

8 . 2 i S b t - 0 l 

7. /IbbE- 01 

7 . 2 740E- 0 I 

6 . 9300F-0 1 

6 . 7 04 OF- 0 1 

b.bl 14F-01 

6.61] 4F- 0 1 

24 

7 .83 JOE- 3 1 

7 . 1S54F- 01 

6 . S 72SE-0 1 

6. 1 164E-01 

5 .8 144E-0 1 

S . b88 7E-01 

5 . bHU/6-01 

22 

7 . 4 1 0 9 E - ill 

6 . S604F-0 1 

5.8 1 9 QE.- 0 1 

5.2348E-01 

4 . 844 OE- 0 1 

4 .b 7866-01 

4 . b 78 61: -0 1 

20 

b . 9 24 7E- 0 1 

5 . 92b OF - 0 1 

5 . 03 78E-0 1 

4. 3261E--0 l 

3 . 844 OF- 0 1 

3 . b 3b 06-01 

3 . 63bU f -0 1 

18 

b .291 3E-01 

S .2167E-01 

4 . 2385E- 0 1 

3.4383E-01 

2 .88SbE 01 

2 . 64076-01 

2 . 64071 - 0 1 

l 6 

5 .4 72 IE 01 

4.423 OE- 0 1 

3 . 4420E-01 

2 . 6224E- 0 1 

2 .044BF- 01 

1 . 7804E-0 1 

1 . 7804 f- - 0 1 

14 

4 .S20 7E-01 

3 . 58 3 3 E- 0 1 

2 . 6849E-01 

1 .9205E-0 1 

1 .371 3E -01 

1 . 1 12 IE- 01 

1 . 1 12 3 F.-O 1 

1 2 

3.5395E-01 

2 . 76 39E-0 1 

2 . 0064E-01 

1 . 3S23F-0 1 

8. 752SF-02 

6 . 4288F-02 

6 . 4288:- 02 

l 0 

2.619 3E- o 1 

2 . 022 OE- 0 1 

1 . 4302E- 01 

9. 1 374E-02 

5. 3 2 94 6.-02 

3 .420bE -37 

3.42U6 L— 0 2 

8 

1 .81 3 7E--01 

1 . 38 7 7E-01 

9 . 6126E-02 

5 .863BE-02 

3.0783E-02 

1 . 6464E-07 

1 . 6464L-02 

6 

1 . 1418E 01 

8. 6760E-02 

5.9116E-02 

3 . 4686E- 02 

1 . 644 7 F - 0 2 

6 .8640E- 03 

6 . 8 b 4 OE- 0 3 

4 

6 . 0 02 9R-02 

4 . 5 3 7 4 E~ 0 2 

3. 0523E-02 

1 . 73B2E-02 

7 . 48 74E-0 3 

2.7107E-03 

2 . 2 1 0 7E- D 3 

2 

1 . 74 38 E- 02 

1 . 313 IE-02 

8 . 7516E-03 

4 .8B76E-03 

1 . 93B2E-03 

3 . B040E-04 

3 . S 04 OF- 0 4 

1 

O.OOOOE+OO 

0 . OOOOE+OO 

O.OOOOE+OO 

O.OOOOE+OO 

0 . OOOOE+OO 

0 . OOOOE+OO 

0 . OOOOE + 00 


Y OR R VELOCITY AT TIME LEVEL 360 


I XI -- 1 2 4 6 8 10 12 14 lb 18 
IETA 

B *. 0 . OOOOE *00 -5.21 52E- 0 3 -1 .270BE-02 -1 .257BE-07 -9. b042E-03 -9.5844E-03 - 1 . 01 10F-02 - 1 . 1 089E-03 - 1 . 0B67E-03 -9 . 3814E-04 
SO 0 . OOOOE *00 -5.21 52E-03 -1.2705E-02 -1.2575E-02 -9.6042E-03 -9.5844E-03 -1.0110E-02 -7.7230E-03 -5.8948E-03 -4.2839E-03 
48 O.OOOOE+OO -8.4085E-03 -2.0706E-02 -1.9766E-02 -1.3684E-02 -1.2556E-02 -1.4016E-C2 -1.3327E-02 -1.0317E-02 -7.2649E-03 
4b O.OOOOE+OO -1.3849E-02 -3.3B19E-02 -2.0432E-02 -1.9942E-02 -1.7983E-02 -1.8682E-02 -1.5503E-02 -1.0906E-02 -6.9941E-03 
44 O.OOOOE + OO -2 . 0589E-02 -4.8785E-02 -4.2409E-02 -2.6890E-02 -2.4020E-02 - 2.3483E-02 - 1 . 7892E-02 - 1.1428E-02 -6.1580E-03 
42 O.OOOOE+OO -2.87 15E-02 -6.7387E-02 -5.7922E-02 -3.6637E-02 -3.1828E-02 -2.9341E-02 -2.0940E-02 -I.2101E-02 -4.7814E-03 
40 O.OOOOE+OO -3 . 7053E-02 -8.7461E-02 -7.7579E-02 -B.0225E-0? -4.05S7E-02 -3.4804E-02 -2.3 4 Sk£- 02 -l.l6BbE-02 -1.5724E-03 
38 O.OOOOE+OO -4 . 2989E-02 -1.0364E-01 -9.8697E-02 -6.6900E-02 -4.8317E-02 -3.7317E-G2 -2.3310E-02 8.3721E-03 4.9741E-03 
36 O.OOOOE+OO -4.3644E-02 -1.0656E-0I -1.1411E-01 -8.3498E-02 -5.4072E-02 -3.4732E-02 -I.7841E-02 -3.3365E-04 1.6219E-02 
34 0 , OOOOE + 00 -3 . 7966E-02 -9.7546E-Q2 -1.1441E-01 -9.3675E-02 -5.8 122E-02 -2.7641E-02 -5.3268E-03 1.4J24E-02 3.3265E-02 
32 O.OOOOE + OO -2 . 8O25E--02 -7.3745E-02 -9.5863E-02 -9.0209E-02 -6.0118E-02 -2.1412E-02 1.07bli:-C2 3.5180E-02 5.6393E-02 
30 0 . OOOOE +00 -1.751 7E-02 -4.6526E-02 -6.5744E-02 - 7.1592E-02 -5.66UE-02 -2.1521E- 02 1 . 97 12E-02 5.4641E-02 8.2163E-02 


28 

O.OOOOE+OO 

-8 . 85 1 7E~ 03 

-2 . 32B8E- 02 

-3 . 5295E-02 

-4.47 98E-02 

-4 .4370E-02 

-2.481 7E-02 

1 . 3 3 73E-02 

5 .8 1 6 IE- 02 

9 .854QE-02 

26 

O.OOOOE+OO 

-2. 3379E-03 

-5 . 4 739E-03 

-1 .00206-02 

-1 .8082E-02 

-2.5667E-02 

-2. 310 IE- 02 

- 1 .2/26E-0 3 

3 . 968BE- 02 

8 . 9925E-02 

24 

0 . OOOOE+OO 

2.S413E-03 

7.9844E-03 

9.8257E-03 

4 . 8435E-03 

-S .5 728E- 03 

-1 .4414E-02 

-1,1 122E-02 

1 . 2 62 9E - 02 

5 . 7096E-02 

7 2 

o . aoooE+oo 

6. 1098E-03 

1.7879E-02 

2. 4673E-02 

2.28 12E-02 

1 . 2 2 4 0 E -- 0 2 

-2 .3 98 7E- 0 3 

-1 .22 756-02 

-7.2 542E-03 

1 . 9672E-02 

20 

a . COOQE+OO 

8.4064E-03 

2 . 4220E- 02 

3 .430 IE-02 

3 . 4953E- 02 

2.5476E-02 

8 . 9496E-03 

~ 7 . 902 3F.- 03 

1 .61226-0? 

-7.012 9E- 03 

38 

0 . OOOOE+OO 

9.440SE-03 

2 . 699QE-02 

3.860 7E-02 

4.0900E- 02 

3 . 3 006 E- 02 

1 . 7049E-02 

2.01 7 7E-03 

- 1 . 71 BSE- 02 

-2 . 0488E-02 

16 

0 -OOOOE+OO 

9 . 3622E-C3 

2.661 4E-02 

3.8224E-02 

4. 1294E-02 

3 .5046E-02 

2 . 1 02 OE- 02 

2.8059E-Q3 

-1 .44Q6E-02 

-2.4331E-02 

14 

O.OOOOE+OO 

B .46 1 6E-03 

2. 3935E-02 

3 . 44Z3E-02 

3.7S92E-02 

3 . 2840E-02 

2. 1328E-07 

5 .61 73E-03 

-1 .0629E-02 

-2.2751E-02 

12 

O.OOOOE+OO 

7 . 0767E-03 

1 . 9928E-02 

2.8666E-02 

3 . 1 SO IE- 02 

2 .8014E-02 

1 . 9092E-02 

6 . 52 7aE- 03 

- 7 . 1 939E-03 

-1 .8793E-02 

10 

O.OOOOE+OO 

B.5049E-03 

1 .B441E-02 

2.2206E-02 

2 .44 93E-02 

2 . 2032E-02 

1 .5493E 02 

6. 092 UE -03 

- 4 . 5500E-0 3 

- 1 .42 3 IE - 02 

8 

0 . OOOOE+OO 

3.9594E-03 

1 . 1069E-Q2 

1.5915E-02 

1 .7593E-02 

1.5946E-02 

l . 1452E-02 

4 . 9043E-03 

-2. 69426-03 

-9 - 94356-03 

6 

O.OOOOE+OO 

2 . 5655E-03 

7. 1531 E- 03 

1 . 0282E-02 

1 . 1382E-02 

1.0369F.-02 

7 . 5572E-03 

3.4222E-03 

-1 .46176- 03 

-6.2 753E- 0 3 

4 

O.OOOOE+OO 

1.3783E-03 

3. 8349 E- 03 

5.51 25E-03 

6. 1072E-03 

5.5832E-03 

4 . 11196-03 

1 . 93466-03 

-6.69846-04 

-3.29626-03 


0 . OOOOE+OO 

4.0672E-04 

1 . 1299E-0 3 

1.6244E-03 

1 . 8008E-03 

1 . 650 7E- 0 3 

1 . 2255E- 0 3 

5 . 9346E- 04 

- 1 . 69466 04 

-9.5127E-04 

l 

0 . OOOOE+OO 

0. OOOOE+OO 

O.OOOOE+OO 

O.OOOOE+OO 

O.OOOOE+OO 

G .OOOOE+OO 

O.OOOOE+OO 

O.OOOOE+OO 

0. OOOOE + OQ 

O.OOOOE+OO 


PROTEUS 2 D User's Guide 


l est Cases 97 



IXI S 20 22 24 26 28 30 32 34 36 38 

IETA 

51 - 7 . 606 IE- 04 -5.3528E-04 -2.7632E-04 -2.9665E-11 2.7632E-04 5.3528E-04 7.6061E-04 9.3814E-04 1.0567E-03 1.10B9E-03 

50 -2.8382E-03 -1.3612E-03 1.4306E-04 1.5865E-03 2.8946E-03 4.0027E-03 4.8556E-03 5.4162E-03 5.6682E-03 5.6138E-03 

48 -4.4659E-03 -1.7638E-03 7.4539E-04 2.9463E-03 4.7950E-03 6.2607E-03 7.3152E-03 7.9447E-03 8.1523E-03 7.9560E-03 

46 -3.3593E-03 2.0068E-04 3.4345E-03 6.1916E-03 8.4278E-03 1.011ZE-02 1.1224E-02 1.1768E-02 1.1767E-02 1.1259E-02 

44 -1 .2404E-03 3.4756E-03 7.6766E-03 1.1226E-02 1.4069E-02 1.6155E-02 1.7457E-02 1 . 7980E-02 1.7757E-02 1 . 6840E-02 

42 2. 0114 E- 03 8.3097E-03 I.3803E-02 1.8381E-02 2.1979E-02 2.4541E-02 2.6041E-02 2.6492E-02 2.5937E-02 2.4446E-02 

40 7.5799E-03 1 .5846E-02 2.2973E-02 2.8851E-02 3.3397E-02 3.6546E-02 3.8272E-02 3.8587E-02 3.7545E-Q2 3.5236E-02 

38 1.6855E-02 2.7398E-02 3.6447E-02 4.3869E-02 4.9554E-02 S.3413E-02 5.5396E-02 5.5504E-02 5.3786E-02 5.0350E-02 

36 3.1051E-02 4.4140E-02 5-5388E-02 6.4635E-02 7. 1 71 7E- 02 7.6482E-02 7.8822E-02 7.8690E-02 7.61 UE-02 7.1 192E-02 

34 5 . 0882E-02 6.6712E-02 8.Q503E-02 9.1996E-02 1.0091E-01 1.0697E-01 1.0994E-01 1.0967E-01 1.0613E-01 9.9379E-02 

32 7 . 6 344E- 02 9.495IE-02 1.1172E-01 1.2612E-01 1.3762E-01 1 .4569E-01 1.4990E-0I 1.4988E-01 1.4546E-01 1.3663E-01 

30 1 . 0585E- 0 1 1.2778E-01 1.4816E-01 1.6639E-01 1.8160E-01 1.9287E-01 1.9936E-01 2.0038E-01 1.9550E-01 1.8456E-01 

28 1.321 9E- 0 1 1 . 6 126E-0 1 1 .8754E-01 2.1134E-01 2.3191E-01 2.4801E-01 2.5830E-01 2.6162E-01 2.5710E-01 2.4429E-01 

26 1.3920E-01 1.8324E-01 2.2201E-Q1 2.5620E-01 2.8S67E-01 3.0937E-01 3.2573E-01 3.3312E-01 3.3018E-01 3.16UE-01 

24 1.1460E-01 1.7568E-01 2.3405E-01 2.8681E-01 3.3250E-01 3.6971E-01 3.9667E-01 4.U49E-01 4.1245E-01 3.9844E-01 

22 6.8999E-02 1.3494E-01 2.0892E-Q1 2.8310E-01 3.5164E-01 4.1017E-01 4.5522E-01 4.8383E-01 4.9369E-01 4.8334E-01 

20 2.5039E-02 8.0584E-02 1.5503E-01 2.4045E-01 3.2792E-01 4.0909E-01 4.7685E-01 5.2552E-01 5.5088E-01 5.5035E-01 

18 -4.9260E-03 3.3922E-02 9.6242E-02 1.7766E-01 2.7021E-01 3.6411E-01 4.4937E-01 5.1711E-01 5.6030E-01 5.7419E-01 

16 -2 . 035 IE-02 3.1911E-03 4.9340E-02 1.1722E-01 2.0171E-01 2.9431E-01 3.8467E-01 4.6229E-01 5.1803E-01 5.4502E-01 

14 -2.5311E— 02 -1.2866E-02 1 .8663E-02 7.0S11E-02 1.4015E-01 2.2133E-01 3.Q511E-Q1 3.8136E-01 4.4043E-01 4.7447E-01 

12 -2.4128E-02 -1 .8621E-02 1.7228E-03 3.9001E-02 9.2361E-02 1.5765E-01 2.2792E-Q1 2.9458E-01 3.4888E-01 3.8326E-01 

10 -1 .9983E-02 -1 .8280E-02 -5. 7635E-03 1.9726E-02 5.8211E-02 1.0710E-01 1.6138E-01 2.1442E-01 2.5912E-01 2.8906E-01 

8 -1 .4847E-02 -1 .49Q4E-02 -7.5897E-03 8.8991E-03 3.4920E-02 6.8946E-02 1.0760E-01 1.4618E-01 1.7946E-01 2.0257E-01 

6 -9.7921E-03 -1 .041 IE-02 -6.4539E-03 3.3604E-03 1.9418E-02 4.0888E-02 6.5698E-02 9.0835E-02 1.1286E-01 1.2853E-01 

4 -5.3125E-03 -5.8674E-03 -4.0428E-03 8.9056E-04 9.1996E-03 2.0499E-02 3.3720E-02 4.7261E-02 5.9262E-02 6.7934E-02 

2 -1.5714E-03 -1.7807E-03 -1.3052E-03 7.8695E-05 2. 4622E-03 5.7445E-03 9.62Q1E-Q3 1.3620E-02 1.7192E-02 1.9803E-02 

1 0.0000E+00 0 . 00G0E + 00 O.OOOOE+OO O.OOOOE+OO O.OOOOE+OO O.OOOOE+OO O.OOOOE+OO O.OOOOE+OO O.OOOOE+OO O.OOOOE+OO 

IXI * 40 42 44 46 48 50 51 

I ETA 

51 1.09 14E- 03 1 . 0054E-03 8.5613E-04 6.5309E-04 4.0903E-04 1.3926E-Q4 O.OOOOE+OO 

50 5.271 IE- 03 4 . 6697 E- 03 3.8470E-Q3 2.8462E-03 1.7224E-03 5.6384E-04 O.OOOOE + OO 

48 7.3864E-03 6.4851E-03 5.3013E-03 3.8941E-03 2.3423E-03 7.6128E-04 O.OOOOE+OO 

46 1 . 0295E- 02 8.9348E-03 7.2452E-03 5.3022E-03 3.1968E-03 1.0445E-03 O.OOOOE+OO 

44 1 . 5300E-02 1.3220E-02 1.0694E-02 7.B23SE-03 4.7269E-03 1.5492E-03 O.OOOOE+OO 

42 2.2115E-02 1.9056E-02 1.5391E-02 1.1258E-02 6.8118E-03 2.2366E-03 O.OOOOE+OO 

40 3 . 1 7B3E-02 2.7336E-02 2.2060E-02 1.6137E-02 9.77S8E-03 3.2156E-03 O.OOOOE+OO 

38 4.5348E-02 3.8971E-02 3.1444E-02 2.3012E-02 1.3958E-02 4.5994E-03 O.OOOOE+OO 

36 6.411 IE-02 5.51 12E-02 4.4493E-02 3.2592E-02 1.9794E-02 6.5343E-03 O.OOOOE+OO 

34 8 . 9620E- 02 7.7156E-02 6.2380E-02 4.5759E-02 2.7831E-02 9.2044E-03 O.OOOOE+OO 

32 1 . 2358E-0 1 1.0668E-01 8.6451E-02 6.3540E-02 3.8708E-02 1.2826E-02 O.OOOOE + OO 

30 1 . 6768E-01 1.4531E-01 1.1812E-01 8.7023E-02 5.3109E-02 1.7631E-02 O.OOOOE+OO 

28 2.2322E-01 1.9435E-01 1.5858E-01 1.1716E-01 7.1640E-02 2.3825E-02 O.OOOOE+OO 

26 2. 9071 E- 01 2.5447E-0I 2.0851E-01 1.5452E-01 9.4672E-02 3.1536E-02 O.OOOOE+OO 

24 J.6912E-01 3.2501E-01 2.6755E-01 1.9896E-01 1.2217E-01 4.0761E-02 O.OOOOE+OO 

22 4 . 5235E-0 1 4.0145E-01 3.3250E-01 2.4841E-01 1.5303E-01 5.1167E-02 O.OOOOE+OO 

20 5 . 2303E-0 1 4.6968E-01 3.9258E-01 2.9539E-01 1.8296E-01 6.1403E-02 O.OOOOE + OO 

18 5 . 5653E-01 5.0746E-01 4.2928E-01 3.2612E-01 2.0358E-01 6.8713E-02 O.OOOOE+OO 

16 5.3928E-01 4.9978E-0I 4.2825E-01 3.2874E-01 2.0705E-01 7.0396E-02 O.OOOOE+OO 

14 4 . 7832E- 0 1 4.4987E-01 3.9001E-01 3.0225E-01 1.9200E-01 6.5806E-02 O.OOOOE+OO 

12 3 . 9235E-0 1 3.7350E-0L 3.2691E-01 2.5532E-01 1.6338E-01 5.6452E-02 O.OOOOE+OO 

10 2 . 9948E- 0 1 2.8777E-01 2.5372E-01 1.9933E-01 1.2829E-01 4.4671E-02 O.OOOOE+OO 

8 2.1 17 7E- 0 1 2 . 0492E- 0 1 1.816SE-Q1 1.4334E-01 9.2652E-02 3.2487E-02 O.OOOOE + OO 

6 1 . 3527E-0 1 1 . 3 157E-Q 1 1.17Q9E-01 9.2680E-02 6.0094E-02 2.1200E-02 O.OOOOE + OO 

4 7 . 1851 E- 02 7.0145E-02 6.2604E-02 4.9661E-02 3.2269E-02 l . 1443E-02 O.OOOOE + OO 

2 2.1018E-02 2.0574E-02 1.8399E-02 1.4618E-02 9.5121E-03 3.3874E-03 O.OOOOE+OO 

1 O.OOOOE+OO O.OOOOE+OO O.OOOOE+OO O.OOOOE+OO O.OOOOE+OO O.OOOOE+OO O.OOOOE+OO 

STATIC PRESS. COEFF . AT TIME LEVEL 360 

IXI * 1 2 4 6 8 10 12 14 16 18 

IETA 

51 3 . 1 342E-02 2.1952E-03 2.0584E-03 1.7918E-03 1.4097E-03 9.3822E-04 4.0870E-04 -1 .4077E-04 -6.8794E-04 -1.1920E-03 

50 4 . 9751E-02 4.9751E-02 3.8739E-02 2.3334E-02 9.3175E-03 -3.9895E-03 -1.6026E-02 -1.1178E-02 -7.1565E-0S -6.5283E-03 

48 3 . 0001 E- 02 3.0001E-02 2.3861E-02 I.8691E-02 9 . 768 IE-03 - 6 . 543QF- 05 -4 . 1 6 7 7E-03 - 9 . 9676E-03 - 1 . 343 7E-02 - 1 . 4008E- 02 

46 2 .565 1 E- 02 2.5651E-02 2.00QSE-02 1.6516E-02 5.9261E-03 -7.0283E-03 -1.4620E-02 -1.8600E-02 -2.1611E-02 -2.3033E-02 

44 2.I240E-02 2.1240E-02 1.4995E-02 L . 0992E-02 -4 . 1 048E-03 -2 . 126 6E-02 - 3 . 0326E-02 - 3 . 4493E-02 -3 . 7 1 93E-02 - 3 . 79 33E-Q2 

42 4 . 5056E- 03 4.5056E-03 -1.7540E-03 -5.9929E-03 -2.4812E-02 -4.5085E-02 -5.4872E-02 -5.8912E-02 -6.0976E-02 -6.0387E-02 

40 -3.0853E-02 -3.0853E-02 -3.7323E-02 -4.2153E-02 -6.2384E-02 -8.3802E-02 -9.3540E-02 -9.6260E-02 -9.6110E-02 -9.2792E-02 

38 - 9 . 66 93E-02 -9.6693E-02 - 1.0333E-01 -1.0813E-01 -1.2462E-01 -1.4256E-01 -1.5010E-01 -1.4960E-01 -1.4518E-0I -1.3733E-01 

36 -1.9747E-01 -1.9747E-01 -2.0412E-01 -2.0850E-01 -2.1661E-01 -2.2508E-01 -2.266QE-01 -2.2Q48E-01 -2.0964E-01 -1.9535E-01 

34 - 3 . 2054E-0 1 -3.2054E-01 -3.2706E-01 -3.3224E-01 -3.3285E-01 -3.2933E-OI -3.2112E-01 -3.0727E-01 -2.6877E-01 -2.6688E-01 

32 -4.3946E-01 -4.3946E-01 -4.4557E-01 -4.5293E-01 -4.5253E-01 -4.4267E-01 -4.2609E-01 -4.0477E-01 -3.7937E-01 -3.5051E-01 

30 -5.3337E-01 -5.3337E-01 -5.3861E-01 -5.4741E-01 -5.5079E-01 -5.4401E-01 -5.2748E-01 -5.0410E-01 -4.7S89E-01 -4.4344E-01 

28 -5 . 98QQE-01 -5.9800E-01 -6.0227E-01 -6.1093E-01 -6.17S6E-01 -6.1773E-01 -6.0949E-01 -5.9311E-01 -5.6999E-0I -5.4076E-01 

26 -6.3896E-01 -6.3896E-01 -6.4268E-01 -6.5075E-01 -6.5889E-01 -6.6418E-01 -6.6530E-01 -6.6129E-01 -6.5119E-01 -6.3392E-01 

24 -6.6330E-01 -6.6330E-01 -6.6699E-01 -6.7504E-01 -6.8435E-01 -6.9297E-01 -7.0067E-01 -7.0757E-01 -7.125IE-01 -7.1267E-01 

22 -6.7 658E-0 1 -6.7658E-01 -6.8070E-01 -6.8947E-01 -7.005QE-Q1 -7.1226E-01 -7.2491E-01 -7.3945E-01 -7.5598E-0L -7.7219E-01 

20 -6.8274E-01 -6.8274E-01 -6.8763E-01 -6.9769E-Q1 -7.1099E-01 -7.2622E-01 -7.4350E-01 -7.6399E-01 -7.8850E-01 -8.1592E-01 

18 - 6 . 8445E- 0 1 -6.8445E-01 -6.9051E-01 -7.0197E-01 -7.1 780E-01 -7.3660E-01 -7.5836E-01 -7.8407E-01 -8.1464E-01 -8.4956E-01 

16 -6.8348E-01 -6.8348E-01 -6.9039E-01 -7.0373E-01 -7.2203E-01 -7.4417E-01 -7.7001E-01 -8.0032E-01 -8.3590E-01 -8.7635E-01 

14 -6.8105E-01 -6.81 05E-0 1 -6.8901E-01 -7.0391E-01 -7.2444E-01 -7.4947E-01 -7.7877E-01 -8.1298E-01 -8.5277E-01 -8.9763E-01 

12 - 6 . 7800E-0 1 -6 . 7800E-01 -6.8692E-01 -7.0321E-01 -7.2564E-01 -7.5303E-01 -7.8512E-01 -8.2249E-01 -8.6574E-01 -9.1424E-01 

10 -6. 7491 E- 01 -6. 7491 E- 01 -6.8464E-Q1 -7.0209E-01 -7.2609E-01 -7.5537E-01 -7.8963E-01 -8.2947E-01 -8.7548E-01 -9.2696E-01 

8 -6. 7207 E- 01 -6.7207E-01 -6.8247E-01 -7.0088E-01 -7.2613E-01 -7.5689E-01 -7.9279E-01 -8.3451E-01 -8.8270E-01 -9.3659E-01 

6 -6.6963E-01 -6.6963E-01 -6.8057E-01 -6.9973E-01 -7.2599E-01 -7.5787E-01 -7.9501E-01 -8.3816E-01 -8.8803E-01 -9.4384E-01 

4 -6.6759E-01 -6.6759E-0L -6.7895E-01 -6.9872E-01 -7.2577E-01 -7.5852E-01 -7.9660E-01 -8.4083E-01 -8.9200E-01 -9.4935E-01 

2 -6.6584E-01 -6.6584E-01 -6.7754E-01 -6.9781E-01 -7.2552E-01 -7.5899E-01 -7.9783E-01 -8.4291E-01 -8.9516E-01 -9.5378E-01 

1 - 6 . 6255E- 0 1 - 6 . 6584E- 0 1 -6.7754E-01 -6.9781E-01 -7.2552E-01 -7.5899E-01 -7.9783E-01 -8.4291E-01 -8.95I6E-01 -9.5378E-01 

IXI = 20 22 24 26 28 30 32 34 36 38 

IETA 

51 -1.62 12E-03 - 1 . 9486E-03 -2.1536E-03 -2.223SE-03 -2.1536E-03 -1.9486E-03 -1.6212E-03 -1.1920E-03 -6.8794E-04 -1.4077E-04 

50 -5.5059E-03 -3.1127E-03 5.9640E-04 5.3046E-03 1.0676E-02 1.6393E-02 2.2162E-02 2.7740E-02 3.2936E-02 3.7612E-02 

48 - 1 . 3 322E- 02 -1.1383E-02 -8.3231E-03 -4.2553E-03 6.4334E-04 6.1399E-03 1.1983E-02 1 . 7925E-02 2.3733E-02 2.9201E-02 

46 -2.2404E-02 -2.0102E-02 -1.6510E-02 -1.185SE-Q2 -6. 3712E-03' -3. 1466E-04 6.0552E-03 1.2490E-02 1 .8758E-02 2.4652E-Q2 

44 -3.6276E-02 -3.2591E-02 -2.7238E-02 -2.0505E-02 -1.27I9E-02 -4.2281E-03 4.6243E-03 1.3509E-02 2.2120E-02 3.0186E-02 

42 -5 . 6908E-02 -5.1046E-02 -4.3203E-02 -3.3724E-02 -2.3006E-02 -I.1464E-02 4.8646E-04 1.2437E-02 2.4004E-02 3.4840E-02 

40 -8 . 6202E-02 -7.6851E-02 -6.5180E-02 -5.1605E-02 -3.6592E-02 -2.0633E-02 -4.2363E-03 1.2092E-02 2.7863E-02 4.2626E-02 

38 - 1 . 2602E-0 1 -1.1167E-01 -9.4684E-02 -7.5515E-02 -5.4664E-02 -3.2691E-02 -1.0205E-02 1.2163E-02 3.3782E-02 5.4052E-02 

36 -1.7770E-01 -1.5685E-01 -1.3308E-0L -1.D678E-01 -7.8421E-02 -4.8626E-02 -1.8109E-02 1.2337E-02 4.1881E-02 6.9702E-02 

34 -2.4 184E-0 1 -2.135IE-0I -1.8190E-01 -1.4717E-01 -1.0974E-01 -7.0229E-02 -2.9481E-02 1.1494E-02 5.1574E-02 8.9602E-02 

32 -3 . 1840E-0 l -2.8271E-01 -2.4303E-01 -1.9924E-01 -1.5154E-01 -1.0054E-01 -4.7227E-02 7.0925E-03 6.0874E-02 1.1245E-01 

30 -4.06 79E-0 1 -3.6552E-01 -3.1889E-01 -2.6639E-01 -2.0795E-01 -1.4408E-01 -7.5937E-02 -5.2308E-03 6.5901E-02 1.3506E-01 


98 l est Cases 
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3.154 9E-02 6 . 080 IE- 02 1.5203E-01 
7.8653E-02 3.8492E-02 1.S625E-01 
1.51 93E-01 -7 . 4925E-Q3 1.4043E-01 
2.5125E-01 - 7 . 9483E-02 1.0015E-01 
3 . 6529E-0 1 - 1 . 7020E-0 1 3.8875E-02 
4 . 7259E-0 1 -2.6 146E-0 1 -2.9292E-02 
5 . 5502E-0 1 -3. 3454 E- 01 -8.6850E-02 
6 . 0834E-0 1 -3.82 14E-Q 1 -1.2453E-01 
6 . 390 IE- 01 -4.0826E-01 -1.4375E-01 
6 . 558 7E- 0 1 -4.2085E-01 -1.5090E-01 
6 . 6554E-0 1 -4.2652E-01 -1.5201E-01 
6.717 7E-0 1 -4.2924E-01 -1.5086E-01 
6.7642E-01 -4 . 3089E-01 -1.4927E-01 
6.8042E-01 -4.3229E-01 -1.4785E-01 
6.8042E-01 -4 . 3229E-01 -1.478SE-01 


IXI 

IETA 

= 40 

42 

44 

46 

48 

50 

51 

51 

4. 1517E-04 

9.4494E-04 

l .4153E-03 

3 . 7966E-03 

2 . 0649E- 03 

2 . 2035E-0 3 

2 . 5053E-02 

50 

4 . 1677E-02 

4.507 3E- 02 

4 . 7 7 62E-02 

4.971 0E- 02 

5 . 0870E-02 

5. 1218E-02 

5. 1218E-02 

48 

3.41 52E- 02 

3.8443E-02 

4.1967E-02 

4 . 4 642E-02 

4 . 64 38E-02 

4 . 7280E-02 

4.7280E-02 

46 

2 . 9995E-02 

3.4641E-02 

3.B481E-02 

4. 1427E-02 

4 . 342 7E-02 

4.441 9E-02 

4.441 9E-02 

44 

3 . 7477E-02 

4 . 3802E-02 

4.901 7E-02 

5 . 3006E-02 

5 . 5683E-02 

5.7021E-02 

5 . 702 IE-02 

42 

4 . 4642 E- 02 

5 . 3 157E-02 

6 . O 184E-02 

6 . 55 72E-Q2 

6 . 9 188E-02 

7. 1045E-02 

7. 1045E-02 

40 

5.5981E-02 

6.758 9E-02 

7 . 7 1 73E- 02 

8 . 4528E- 02 

8 . 9465E-02 

9 . 204 1 E- 02 

9 . 204 IE-02 

38 

7.2424E-02 

8 . 8426E-02 

1 . 0166E-01 

1.1184E-01 

1 . 1868E-0 1 

1 .2228E-0I 

1 .2228E-01 

36 

9.502 7E- 02 

1 . 1717E-01 

l .3555E-01 

1 .4970E-01 

1 .5926E-01 

1 .6431E-01 

1 . 643 1 E-0 1 

34 

1 .2445E-01 

1 .551 IE-01 

1 .8067E-01 

2 . 0042E-0 1 

2. 1382E-01 

2 , 2090E-0 1 

2 . 2090E-0 1 

32 

1.601 7E-0 1 

2 . 0246E— 01 

2 . 3794E-01 

2 . 6548E-0 l 

2.8427E-01 

2.9416E-01 

2 . 9416E-01 

30 

1.9977^-01 

2 . 5 7 66E-01 

3 . 0659E-01 

3 . 4478E- 0 1 

3 . 7095E-01 

3. 8467 E- 01 

3.8467E-01 

28 

2. 385 IE- 01 

3 . 1669E-01 

3. 8331 E- 01 

4 . 3562E-0 1 

4 . 7163E-01 

4. 9045 E- 01 

4 . 9045E-0 1 

26 

2. 6945E-01 

3 . 7293E-0 1 

4 . 6 188E-0 1 

5 . 322 IE- 01 

5.8082E-01 

6.061 7E- 0 1 

6.061 7E-0 1 

24 

2 . 84 7 1 E-0 1 

4 . 181 IE- 0 Z 

5 . 3384E-0 1 

6 . 25 98E- 0 1 

6 .8 999E-0 1 

7 . 2333E-0 1 

7.2333E-01 

22 

2.781 OE-O 1 

4 . 4460E-01 

5.9042E-01 

7 . 0744E-01 

7.8927E-01 

8.31 94E-0 1 

8. 3194E-01 

20 

2 . 4965E-0 1 

4.4946E-01 

6 . 262 6E-0 1 

7.694 3E-0 1 

8 . 7039E-0 1 

9 . 2 3 39E-0 1 

9.2339E-01 

18 

2.091 4E- 0 1 

4 . 3832E-0 1 

6.433 3E-Q 1 

8. 1093 E- 01 

9 . 3035E- 0 1 

9 . 9 386E-0 1 

9 . 9386E-0 1 

1 6 

1 . 7164E-01 

4,231 7E-0 1 

6 . 50 39E-0 1 

8 . 3 777E-0 1 

9 . 7267E-0 1 

1 .0458E+00 

1 . 0458E+ 00 

14 

1 .4722E-01 

4. 1393E-01 

6.5656E-01 

8 . 5794E- 0 l 

1 . 0042E + 00 

1 .0851E+00 

1 .0851E+00 

12 

1 .3680E-01 

4 . 1 342E-01 

6 . 6605E-0 1 

8. 7654E-01 

1 . 0303E + 00 

1.1172E+00 

l . 1172E+00 

10 

1 . 3596E-01 

4. 1 928E-0 1 

6.7846E-01 

8 . 9479E-0 1 

1 . 0S34E+00 

1 . 1 448E+00 

1 . 1448E+00 

8 

1 . 3974E-0 1 

4 . 27 96E-0 1 

6.91 70E-0 1 

9 . 1197E-01 

1 .0738E+00 

1 . 1687E+00 

1 . 1 68 7E + 00 

6 

1 .4485E-01 

4 . 3688E-0 1 

7.0405E-01 

9.2719 E— 0 1 

1 . 09 1 4E*Q0 

1 . 189QE+ 00 

1 . 1890E+00 

4 

1 .49 7 IE- 01 

4 .4483E-01 

7. 1474E-01 

9.4014E-01 

1 . 1 060E + 00 

l .2Q60E+00 

1 . 20 6 0E + 00 

2 

1 .5397E-01 

4.51 78E-0 l 

7.2405E-01 

9.513 7E- 0 1 

1 . 1 187E+00 

1 .2206E+00 

1 . 2206E ♦ 00 

1 

1 .5397E-01 

4 .51 78E-01 

7.2405E-01 

9.513 7E-0 1 

1 . 1 187E+ 00 

1 . 2206E + 00 

1 . 2502E + 00 


CONVERGED SOLUTION AT TIME LEVEL 360 


CONVERGENCE HISTORY FOR CONTINUITY EQUATION 


28 -5.051 3E-0 1 
26 -6.0784E-01 
24 -7.041 1 E-0 1 
22 -7.831 3E-0 1 
20 -8.4213E-01 
18 -8 . 8569E-0 1 
16 -9. 1891E-01 
14 -9.4481E-01 
12 - 9 . 6504E- 0 1 
10 -9.8074E-01 
8 -9 . 9282E-0 1 
6 -1 .0021E + 00 
4 - 1 . 0092E + OO 
2 - 1 . 0 150E+00 
1 -1.0 150E+00 


-4 . 6245E-0 1 
-5.7109E-01 
-6.8244E-01 
• 7 . 8207E- 0 1 
-8.5995E-01 
-9. 1651 E- 01 
■ 9 . 5764E-0 1 
■9 .8848E-01 
-1 . 012 1E + 00 
•1 . 0305E+0Q 
■1 . 0448E+00 
•1 . 0559E+00 
1 . 0645E + 00 
1 .0717E + 00 
l . 07 17E + 00 


-4.1181E-01 
-5.2209E-01 
-6.4377E-01 
-7.61 90E-01 
-8.601 2E-0 1 
-9 . 3245E-0 1 
-9.8327E-01 
-l.Ol 95E+00 
-1 .0463E + 00 
-1 . 0668E+00 
-1 . 082 7E + QQ 
-1 . 0951E + 00 
-1 . 1049E+00 
-1 . 1 1 3 1E+Q0 
- 1 . 1 1 3 lE+OO 


■ 3 . 5238E-0 1 
-4.5964E-01 
-5.8538E-01 
■7.166 IE-01 
■8 . 3 330E- 0 1 
-9.2234E-01 
■9.84 1 6E-0 1 
■1 .0262E + 00 
■1 . 0558E *00 
1 . 0 776E + 00 
1 .0942E + 00 
1 . 1073E+00 
1 . 1176E+00 
1 . 1264E+QQ 
1 . 1264E+00 


-2.8378E-01 
-3. 8312 E- 01 
-5.0593E-01 
-6 .4245E-01 
-7.721 OE-Q 3 
-8. 7582E-01 
-9.4848E-01 
■9 . 9635E- 0 1 
■ 1 .0281E + Q0 
-1 .0503E+00 
• l . 066 7E+ 00 
■1 . 0794E+00 
■1 . 08 96E + 00 ■ 
■1 .0982E+00 
1 . 0982E+00 ■ 


-2.0641E-01 
-2 . 9286E-01 
-4.0563E-01 
-5.3847E-01 
■6 . 7269E-0 1 
■7 .858 1 E-0 l 
■8 . 6694E- 0 1 
-9 . 1947E-01 
■ 9 . 5252E-0 1 
-9.7411 E-0 1 
9.8926E-01 
3 . 0007E+00 
1 .0097E+00 
1 .0175E+00 
1 .0175E+00 


-1 .2160E-01 
-1 .9042E-01 
-2.8640E-01 
-4. 0654 E- 01 
-5 . 3553E-0 1 
-6.5 024E-0 1 
-7.351 7E-0 1 
-7.8991E-01 
-6.2278E-01 
-8.4263E-0I 
-8 . 5550E- 0 1 ■ 
-8.6470E-01 ■ 
-8 . 7 188E-0 1 ■ 
-8 . 78Q5E-Q1 ■ 
-8.7805E-01 ■ 





ft*** WITHOUT ARTIFICIAL VISCOSITY 

H H KW 

WITH ARTIFICIAL VISCOSITY « * * * 

LEVEL 

CHGMAX 

CHGAVG 

RESL2 

RESAVG 

RESMAX 

RESMAX LOC 

. RESL2 

RESAVG 

RESMAX 

RESMAX LOC 

1 

0 . OOOE+OO 

0 . 000E + 00 

1 . 139E + 01 

1 . 733E-01 

6 . 048E-01 

( 17. 22) 

1 . 139E + 01 

1 . 734E-01 

6 . 049E-0 1 

( 17, 22) 

2 

0 . OOOE+OO 

0. 000E + 00 

9.262E+01 

7. 788E-01 

1 . 695E + 0 1 

( 2, 2) 

9 . 299E + 0 1 

7.842E-01 

1 . 71 1E + 01 

( 2 , 2 ) 

1 0 

4 . 162E-03 

0. 000E + 00 

4. 1S1E + 01 

4.636E-01 

6 . 635E + 00 

( 46, 50) 

3. 125E + 01 

4 .447E-01 

2 .470E + 00 

( 47 , 50 ) 

20 

1 .870E-03 

0 . 000E + 00 

2.423E+01 

3. 103E-01 

3 . 967E + 00 

C 2, 50) 

2.249E+01 

2. 9 72E-01 

2 . 663E + 00 

( 13, 50 ) 

30 

1 . 22 6E- 0 3 

0 .OOOE+OO 

5 . 494E+0 1 

3. 189E-01 

9 . 735E + 00 

( 45, 50) 

l .483E+01 

1 .661E-01 

3 .803E + 00 

( 13, 50 ) 

40 

5 . 444E— 04 

0 . OOOE+OO 

4 . 486E+01 

2.549E-01 

8 . 389E + 00 

( 48, 50) 

6.417E+00 

7.958E-02 

1 . 145E + 00 

( 12, 50) 

50 

5 . 562E- 04 

0 . OOOE + OO 

5.271E+01 

2.589E-01 

1 .005E + 01 

I 48, 50) 

5.862E+00 

5.413E-02 

1 .340E + 00 

( 13, 50) 

60 

3 . 1 1 1 E- 04 

0. OOOE+OO 

5 . 524E + 0 1 

2.657E-01 

1 -069E + 01 

C 48, 50) 

4 . 370E + 00 

3 . 66 IE-02 

1 . 1 76E + 00 

( 12 , 50 ) 

70 

2 .473E-04 

0 .OOOE+OO 

5 . 492E + 01 

2.585E-01 

1 .079E + 01 

( 2, 50 ) 

3.884E+00 

3. 163E-02 

8 . 702E-0 1 

C 12 , 50 ) 

80 

1 . 768E-04 

0. OOOE+OO 

5. 720E + 01 

2.618E-01 

l . 179E + 01 

C 2, 50) 

3.421E+00 

2 . 528E- 02 

9 . 025E-0 1 

t 12, 50 ) 

90 

1 . 259E- 04 

0 .OOOE+OO 

5 . 688E + 01 

2 . 556E- 0 i 

1 .265E + Q1 

< 2, 50) 

2.857E+00 

2 . 057E-02 

7. 172E-01 

( 12, 50) 

100 

9.474E-05 

0 . OOOE + OO 

5. 762E + 01 

2.533E-01 

1 . 339E + 01 

C 2, 50) 

2 . 380E+00 

1 . 564E-02 

6 . 322E-0 l 

C 12 , 50 ) 

110 

6 . 52 9E- 05 

0 . OOOE + OO 

5 - 772E + 01 

2 . 500E- 0 1 

1 . 403E + 0 1 

C 2, 50) 

l .878E+0Q 

1 .221E-02 

4 . 996E-0 1 

C 12 , 50 ) 

120 

4 . 64 OE-O 5 

0 . OOOE + OO 

5. 788E + 01 

2 . 4 75E-0 1 

1 .454E + 01 

C 2, 50) 

1 .425E + 00 

8.634E-03 

3 . 827E- 0 1 

( 12, 50 ) 

1 30 

3.01 6E- 05 

0 . OOOE + OO 

5. 796E + 01 

2.459E-01 

1 . 494E + 0 1 

t 2,50) 

1 . 034E + 00 

6. 303E-03 

2 . 848E- 0 1 

C 12 , 50 ) 

140 

1 .889E-05 

0 . OOOE + OO 

5 . 794E + 01 

2.445E-01 

1 .523E+01 

( 2, 50 ) 

7.084E-01 

4.2I6E-03 

1 .948E-01 

( 12 . 50 ) 

150 

1.10 6E- 05 

0 . OOOE + OO 

5.791E+01 

2.438E-01 

1 .542E+01 

( 2, 50) 

4.632E-01 

2.814E-03 

1 . 299E-0 1 

C 12, 50) 

1 60 

6 .477E-06 

0. OOOE+OO 

5 . 782E + 01 

2.432E-01 

1 .555E+01 

( 2, 50) 

2.855E-01 

l .733E-03 

7 . 868E- 02 

( 12 , 50 ) 

170 

4 . 252E-06 

0. OOOE+OO 

5.774E+01 

2.427E-01 

l .562E + 01 

( 2, 50) 

1 -678E-01 

1 . 07 OE- 03 

4.51 OE- 02 

( 12, 501 

180 

2 . 799E-06 

0 .OOOE+OO 

5. 767E+0I 

2.423E-0 1 

1.565E+01 

( 2, 50) 

9.543E-02 

6.349E-04 

2 . 308E-02 

t 12 , 50 ) 

190 

1 . 7 75E- 0 6 

0 . OOOE+OO 

5. 761E + 0I 

2 . 420E-0 1 

1 .566E + 01 

( 2, 50) 

5 . 38 OE- 02 

3 . 829E- 04 

1 . 0 7 IE- 02 

( 2 , 43 ) 

200 

1 . 1 3 IE-06 

0 .OOOE+OO 

5.756E+01 

2.417E-01 

1 .567E + 01 

C 2, 50) 

3.227E-02 

2 . 366E-04 

6 . 1 14E-03 

( 2 , 38 ) 

2 1 0 

6 . 984E-07 

0 . OOOE+OO 

5.753E+01 

2.4 1 6E-01 

1 .566E + 01 

( 2,50) 

2.062E-02 

1 . 465E- 04 

4.296E-03 

C 2,39) 

220 

4 . 313E-07 

0 . OOOE+OO 

5.751E+01 

2.415E-01 

1 . 566E + 0 1 

( 2. 50 ) 

1 .380E-02 

9 . 38 6 E-0 5 

3 .282E-03 

( 13, 50 ) 

230 

2 . 902E-07 

0. OOOE+OO 

5 . 750E + 0 1 

2.414E-01 

1 .566E+01 

( 2. 50) 

9.1 18E-03 

5. 782E-05 

2 . 337E-03 

t 13, 50) 

240 

1 . 912E-07 

0 .OOOE+OO 

5 . 749E+01 

2.414E-01 

1 .566E+01 

( 2, 50) 

5.812E-03 

3.491E-05 

l . 453E-03 

( 13 , 50 ) 

250 

1 . 23 6 E-0 7 

0. OOOE+OO 

5 . 749E+01 

2.414E-01 

l .565E+01 

( 2, 50) 

3 . 580E-03 

2 . 08 OE- 05 

8 . 04 IE-04 

C 2, 42) 

260 

8 . 020E-08 

0 . OOOE+OO 

5.749E+01 

2.414E-01 

1 . 565E + 0 1 

( 2, 50) 

2. 168E-03 

1 . 2 38E-05 

4.735E-04 

C 2,43) 

270 

5 . 1 64E- 08 

0. OOOE+OO 

5. 749E+01 

2.414E-01 

1 .565E+01 

C 2. 50) 

1 . 342E- 0 3 

7 . 781E-06 

2 . 700E-04 

( 2,44) 

280 

3.31 3E-08 

0 . OOOE+OO 

5. 749E+01 

2.414E-01 

1 .565E+01 

C 2,50) 

8. 733E-04 

4 . 992E-06 

1 . 731E-04 

C 2 , 38 ) 

290 

2 . 074E-08 

0 . OOOE + OO 

5.749E+01 

2.414E-01 

1.565E+01 

( 2 , 50 ) 

5.895E-04 

3.330E-06 

1 . 268E- 04 

C 2,39) 

300 

1 . 250E-08 

0 . OOOE+OO 

5 . 749E+0 1 

2.414E-01 

1 .565E+01 

( 2, 50) 

3.975E-04 

2.216E-06 

8 .81 9E-05 

( 2,40) 

310 

7 . 394E-09 

0. OOOE+OO 

5 . 749E+01 

2.414E-01 

1 .565E+01 

C 2, 50) 

2-596E-04 

1 .476E-06 

5 . 800E-05 

[ 2* 40) 

320 

5.014E-09 

0. OOOE+OO 

5.749E+01 

2.414E-01 

1 .565E + 01 

C 2. 50) 

1.621E-04 

9.537E-07 

3 . 748E-05 

C 2,41) 

330 

3 . 334E-09 

0. OOOE+OO 

5.749E+01 

2.414E-01 

1 . 5 65E + 0 1 

( 2, 50) 

9. 735E-05 

6.063E-07 

2 . 245E- 05 

{ 2.42) 

340 

2 . 2 12E-09 

0 . OOOE + OO 

5. 749E+01 

2.414E-01 

1 . 565E+01 

( 2, 50) 

5.801E-05 

3 . 8 6 3 E- 0 7 

1 . 262E-05 

C 2,43) 

350 

1 . 4 65E-0 9 

0 .OOOE+OO 

5. 749E+01 

2.41 4E-01 

1 .565E+01 

( 2, 50) 

3 .627E-05 

2 . 50 1 E-0 7 

6.887E-06 

( 2, 44) 

CONVERGENCE HISTORY FOR 

X-MOMENTUM 

EQUATION 










WITHOUT ARTIF 

ICIAL VISCOSITY * »«* 

* * * * 

WITH ARTIFICIAL VISCOSITY * * * « 

LEVEL 

CHGMAX 

CHGAVG 

RESL2 

RESAVG 

RESMAX 

RESMAX LOC. 

RESL2 

RESAVG 

RESMAX 

RESMAX LOC. 

1 

0 . 000E ♦ 00 

0 . OOOE + OO 

1 .442E+04 

3.490E+01 

3 . 328E + 03 

( 26, 2) 

1 .442E+04 

3.494E+01 

3 . 330E + 03 

I 2 6, 2 ) 

2 

0 . OOOE + OO 

0 .OOOE + OO 

3. 143E + 03 

1 .669E+01 

5.483E+02 

C 14, 2) 

3. 146E + 03 

1 .670E + 01 

5 . 486E + 02 

( 14 , 2 ) 

1 0 

7 . 992E-02 

0 . OOOE + OO 

1 . 622E + Q2 

2 . 28 1E+00 

2 . 054E + 0 1 

( 50, 50) 

1 .498E + 02 

2.203E+00 

1 . 360E + 01 

( 13 . 50 ) 

20 

2 . 8 38E-02 

0 . OOOE + OO 

1 . 327E + 02 

1 .661E + 00 

1 .355E + 01 

( 2, 48) 

1 .228E + 02 

1 . 553E + 00 

3 . 156E + 01 

C 13, 50 ) 

30 

2.415E-02 

0 .OOOE + OO 

1.939E+02 

1 .730E + 00 

2.995E+01 

t 50, 50) 

1 . 139E + 02 

1 .241E + 00 

2. 903E + 01 

( 13, 50 ) 

40 

1 .921E-02 

0. OOOE + OO 

2 . 080E + 02 

1 -639E + 00 

3.009E+01 

( 2, 48) 

9. 121E + 01 

8. 762E-01 

1 .258E + 01 

f 2, 34) 

50 

1 .391E-02 

0. OOOE + OO 

2.396E+02 

1 .705E + 00 

3 . 783E + 0 1 

C 2, 40 ) 

8 . 042E+0 1 

7. 733E-01 

l . 150E + 01 

C 2,35) 

60 

1 . 009E-02 

0 . OOOE + OO 

2.657E+02 

1 .698E + 00 

4 . 585E + 01 

( 2, 40) 

6 . 734E+0 1 

5.756E-01 

1 . 008E + 01 

( 2, 36) 

70 

7.032E-03 

0. OOOE+OO 

2 . 858E + 02 

1 . 725E + 00 

5 .250E + 01 

C 2, 40) 

5.733E+01 

4. 977E-01 

8 . 384E + 00 

( 2, 37) 

80 

5. 108E-03 

0 .OOOE + OO 

3.072E+02 

1 .751E + 00 

5 .84 1E + 01 

C 2,40) 

4 . 824E + 0 1 

3 . 892E-0 1 

7 . 064E + 00 

C 2, 38) 
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ORIGINAL PAGE fS 
OF POOR QUALITY 


90 

3 .5936-03 

0 . G0QE + 00 

3 . 23 1E+02 

m 

o 

o 

6.328E+01 

( 2, 

100 

2 .543E-03 

0 . 000E+0Q 

3.3776+02 

1 .810E + 00 

6 . 765E+01 

( 2, 

1 10 

1 .826E-03 

0.Q00E+00 

3.49 16*02 

1 .838E + 00 

7. 106E+01 

[ 2 , 

120 

1 . 3Q4E-03 

0 . 000E *00 

3.S8QE+02 

1 . 86 7E + 00 

7 . 354E + 0 1 

( 2, 

130 

9.210E-04 

0 . 000E+00 

3 . b44£+02 

1 .893E+00 

7 .S18E+01 

( 2 , 

140 

6 . 173E-04 

0 . OOOE+OO 

3 . 6866+02 

1 . 9 14E+00 

7 . 623E+01 

( 2. 

ISO 

3.91 1 E- 04 

0. OOOE+OO 

3- 7I2E+02 

1 .929E+00 

7.6976+01 

( 2 9 

160 

2 . 398E-04 

0 . OOOE+OO 

3.7266+02 

1 . 939E+00 

7.7316+01 

C 2. 

1 70 

1 . 42 bE- 04 

0. OOOE+OO 

3 . 732E+02 

1 . 944E + G0 

7.7426*01 

( 2 , 

180 

8.568E 05 

0 . OOOE + OO 

3.7346+02 

1 . Q 46E+00 

7.7406+01 

C 2, 

190 

b .2UE-0S 

0. OOOE + OO 

3 . 733E+02 

1 . 947E+00 

7. 7346+01 

( 2, 

200 

4 . 274E-Q5 

0 . 000E + 00 

3 . 732E+02 

1 .946E+00 

7.7286+01 

( 2. 

210 

2 .809E-05 

0 . OOOE + OO 

3 . 731E+02 

1 . 946E + 00 

7 . 723E+01 

( 2 » 

220 

1 . 784E- 05 

0. OOOE + OO 

3 . 7 3 0E + 02 

1 . ?4oE + 00 

7.7196+01 

( 2, 

230 

l .099E-05 

0. OOOE+OO 

3 . 729E+02 

1 . 945E + 00 

7. 7176+01 

( 2. 

240 

b . 643E-06 

0 .OOOE+OO 

3.729E+02 

1 . 9<(*>E*00 

7.7176+01 

( 2, 

2S0 

3 . 966E-06 

0. OOOE + OO 

3 . 729E+02 

1 .9456 + 00 

7. 716E+01 

( 2. 

260 

2.3S7E-06 

0. OOOE+OO 

3 . 729E+02 

1 . 9456 + 00 

7. 717E+01 

£ 2 . 

270 

1 . 60SE-06 

0 . OOOE + OO 

3. 729E+02 

1 .945E + 00 

7.7176+01 

{ 2, 

280 

1 . 125E-06 

0 . OQOF + QQ 

3. 729E+02 

1 . 9456*00 

7.717E+01 

( 2 » 

290 

7.S39E-07 

0. OOOE + OO 

3. 729E+Q2 

1 .94SE+00 

7.717E+01 

£ 2, 

300 

4.869E-07 

0. OOOE+OO 

3. 729E+02 

1 . 9456 + 00 

7.717E+01 

£ 2, 

310 

3 . 050E-07 

0. OOOE+OO 

3. 729E+02 

1 . 945E + 00 

?. 7176+01 

( 2 , 

320 

1 . 8 7 1 E- 07 

0 . OOOE + OO 

3. 729E + 02 

l . 945E + 00 

7.7176+01 

( 2 , 

330 

1 . 1 33E-07 

0 . OOOE + OO 

3. 729E+02 

1 . 9456 + 00 

7. 717E+01 

£ 2 » 

340 

6.84 ?E- 08 

0 . OOOE + OO 

3. 7296 + 02 

1 . 9456 + 00 

7.71 7E+01 

£ 2, 

3S0 4 , 325E- 08 

CONVERGENCE H 

0. OOQE + OO 
STORY FOR 

3./29E+Q2 1.9456*00 7.717E+01 ( 2. 

Y-MOMENTUM EQUATION 

««.. WITHOUT ARTIFICIAL VISCOSITY 

LEVEL 

CHGMAX 

CHGAVG 

RESL2 

RESAVG 

RESMAX 

RESMAX 

1 

0 .000E + 00 

0. OOOE + OO 

8 . 313E + 03 

2.2096+01 

1 .660E+03 

( 1 4 

2 

0 .G00E + 00 

0. OOOE + OO 

1 . 932E + 03 

8.514E+00 

4.01 3E+02 

t 1 0 

1 0 

S .1816-02 

0. OOOE + OO 

1 . 344E + 02 

1 . 665E + 00 

2. 139E+01 

t 33, 

20 

2 . 34bE- 02 

0 . OOOE + OO 

9 . 622E + 01 

1 . 311E + 00 

1 .056E+01 

£ IS > 

30 

1 . 7S0E-02 

0 .OOOE + OO 

1 . 733E+02 

1 .4496 + 00 

3 . 263E + 0 1 

C 31 . 

40 

1 . 08 9E-02 

0 .OOOE + OO 

1 .479E + 02 

1 .287E + C0 

2 . 5 12E+01 

( 34. 

SO 

7 .577E-03 

0 . OOOE + OO 

1 . 661E + 02 

I . 307E+00 

3 .0166+01 

t 34 , 

60 

S . 1 92E-03 

0. OOOE + OO 

1 .690E + 02 

1 .21 1E + C0 

3 . 088E+01 

£ 35, 

70 

3 . 734E- 03 

0. OOOE + OO 

1 . 6S0E + 02 

1 . 157E + 00 

3.01S6+01 

( 35. 

80 

2 . 723E 03 

0. OOOE + OO 

l . b85E + 02 

1 . 1 14E + 00 

3 . 099E+01 

C 35. 

90 

1 . 988E-03 

o. GOOE + GG 

1 . 6 65E ♦ 02 

1 . Q74E + QO 

3.0166+01 

( 36. 

1 00 

1 . 4 0 0 E - 0 .3 

0 . OCOE + OG 

l . 675E + 02 

1 .045E + 00 

3 .0146+01 

( 36, 

1 1 0 

9 . 74 0E- 04 

C. OOOE + OO 

1 . 67SE + 02 

1 . 019E+00 

2. “696+01 

C 36, 

120 

6 . 4 3 6 E - 0 4 

0 . OOOE + OO 

1 . 6 78E + 02 

1 .OOOE + OO 

2 . 939E+01 

( 36, 

130 

4 . 109E-04 

0. OOOE + OO 

1 . 683E + 02 

9 . 901E-01 

2.9096+01 

( 36 , 

140 

2 .843E-04 

0. OOOE+OO 

1 .686E + 02 

9.883E-01 

2.8816+01 

C 36, 

ISO 

l . 9Q 1 E- 04 

0. OOOE+OO 

l . 689E + 02 

9.911E-01 

2.860E+01 

£ 36, 

1 60 

1 . 2b0E-04 

0. OOOE+OO 

l . 691E + 02 

9.935E- 01 

2.841E+01 

£ 36, 

170 

8 . 078E-0S 

0 . OOOE+OO 

I . 692E + 02 

9 . 942E- 0 1 

2 . 828E+0 1 

£ 36, 

180 

b . 0 18E-0S 

0 . OOOE + OO 

1 . 692E + 02 

9 .938E-01 

2.819E+01 

C 36, 

1 90 

3 . 047E-0S 

0. OOOE+OO 

1 .691E + 02 

9. 931E-01 

2.813E+01 

£ 36, 

200 

1 .853E-05 

0 .OOOE + OO 

1 . 691E + 02 

9.921E-01 

2.809E+01 

( 36, 

210 

1 . 184E-0S 

0. OOOE + OO 

1 . 690E + 02 

* . 91 IE-01 

2.806E+01 

£ 36, 

220 

7 . 755E-06 

0. OOOE+OO 

1 . 690E + 02 

9.904E-01 

2.805E+01 

( 36, 

230 

S . 0 1QE-06 

0 .OOOE+OO 

1 .690E+02 

9.8996-01 

2 -804E+0 1 

( 36, 

24 0 

3 .236E-06 

0. OOOE+OO 

1 . 689E + 02 

9 .8966-01 

2-804E+01 

( 36 , 

250 

2 . 078E-06 

0. OOOE + OO 

1 . 689E + 02 

9 .8956-01 

2.8046+01 

t 36, 

260 

1 .324E-06 

0 . OOOE + OO 

1 . 689E + 02 

9.8946-01 

2.804E+01 

( 36, 

270 

8.324E-07 

0 .OOOE + OO 

1 . 689E + 02 

9.8946-01 

2. 8046+01 

( 36 , 

280 

S . 134E-07 

0 .OOOE + OO 

1 . 689E + 02 

9 .895E-01 

2.8046+01 

£ 36, 

290 

3 . 148E-07 

0. OOOE + OO 

1 . 689E+02 

9 .895E-01 

2.804E+01 

( 36, 

300 

2 -079E-07 

0 .OOOE + OO 

1 . t> j 9E ♦ 0 2 

9 .89SE-01 

2 .8046+01 

£ 36, 

310 

1 . 358E-07 

0. OOOE + OO 

1 . 689E + 02 

9 .895E-01 

2.804E+01 

( 36, 

320 

8 . 78SE-08 

0 . OOOE + OO 

1 - 68 9E + 02 

9.89SE-01 

2 .804E+01 

( 36, 

330 

5. 756E-08 

0. OOOE + OO 

1 . 689E + 02 

9 .895E-01 

2 .804E+0 l 

( 36, 

340 

3. 730E-08 

0 . OOOE + OO 

1 . 689E + 02 

9 .89SE-01 

2.804E+01 

( 36. 

3S0 

STOP 

2.386E-08 

G .OOOE + OO 

1 .689E + 02 

9.8956-01 

2.804E+01 

( 36. 


41 ) 
41 ) 
4 1 ) 

41 ) 

42 ) 
42 ) 
42 ) 
42) 
42) 
42 ) 
42) 
42 ) 
42 ) 
42 ) 
42) 
42) 
42) 
42 ) 
42 ) 
42) 
42 ) 
42 ) 
42) 
42) 
42) 
42) 


3.970E+01 

3.097E-01 

5 . 742E+00 

2, 

38) 

3 .2046*0 1 

2.378E-01 

4 . 690E+00 

•> t 

39) 

2.472E+01 

1 . 74 7E-01 

3 . 64 76 + 00 

2 , 

40 ) 

1 . 832E + 0 1 

1.244E-01 

2. 7036+00 

2 t 

40) 

1 . 284E + 01 

8. 358E-02 

1 . 940E+00 

2 , 

4 1 ) 

8 . 532E + O0 

5 . 4 346-02 

1 .285E + 00 

2 , 

42 ) 

S . 346E + 00 

3. 390E-02 

8. 158E-0 1 

2 . 

42 ) 

3.167E+00 

2 , 036E-02 

4. 777E-01 

6. 

37 ) 

1 . 793E+00 

1 . 192E-02 

2 . 666E-0 1 

6, 

37) 

1 . OOOE + OO 

6 .897E-Q3 

1 . 5 6 1 E - 0 1 

2 . 

37 ) 

5.8I7E-01 

4 . 053E-03 

1 .031E-G1 

2 , 

38 ) 

3 . 692E-01 

2.S49E-03 

6 . 7 74E - 02 

2 , 

39 ) 

2.483E-01 

1 .636E-03 

4 .4356-02 

2, 

40 ) 

1 . 670E-Q1 

1 . 066E- Q3 

2 -852E-02 

2 , 

41 ) 

1 . 084E- 0 1 

6. 776E 04 

1 , 7 686-02 

2. 

42 ) 

6. 757E-02 

4 . 188E-04 

i .0346-02 

2 - 

43 ) 

4. 1 12E-02 

2.596E-04 

b . 0 72E-0 3 

; 6 , 

38 ) 

2 .5296-02 

1 .642E-04 

4 . 161E-03 

C 2. 

37 ) 

1 .628E-02 

1 . 052E- 04 

2.860E-03 

[ 2 , 

38 ) 

1 .093E-02 

6 . 8 38E-05 

1 . 947E-03 

C 2 , 

39 ) 

7.388E-Q3 

4 .437E-05 

i .29BE-03 

[. 2 . 

40 ) 

4.856E 03 

2.81 2E- 05 

8 - 326E 04 

( 2 , 

4 t ) 

3 . 048E-03 

1 . 7 72E-0S 

5 . 043E-G4 

( 2 . 

42 ) 

1 .827E-03 

1 . 124E-05 

2 . 8 78E- 04 

£ 2 » 

42 ) 

1 .072E-03 

7 . 047E-06 

1 .6716-04 

( 2. 

36 ) 

6.529E-04 

4 . 528E- 0 6 

1 . 163E-04 

C 2. 

37 ) 

4 .371E-04 

3 . 043E-06 

8.11 IE-05 

( 2, 

38 ) 


WITH ARTIFICIAL VISCOSITY * * * - 
RESAVG RESMAX RESMAX LOC. 


2) 

8.317E+03 

2.212E+01 

1 . 6 fa 1 E+ 03 

£ 14, 

2) 

2) 

1 .9346 + 03 

8.537E+00 

4.015E+02 

f 10, 

2 ) 

50 ) 

1 . 1 18E + 02 

1 . 609E+00 

7 .8246+00 

( 34, 

49 ) 

50 ) 

8 . 934E+01 

1 .227E+00 

I . 293E+01 

C 12, 

50 ) 

50 ) 

8 . 236E + 01 

9.646E-01 

9.482E+00 

( 13, 

50 ) 

50 ) 

7. 754E + 01 

7 . 628E-01 

9. 728E+00 

£ 6 , 

27 ) 

50 ) 

7 . 542E+ 0 1 

6.961E-01 

1 . 062E+01 

( 5, 

29) 

50 ) 

6 . 774E + 01 

5 . 359E-Q1 

1 .0776+01 

£ 5 , 

30 ) 

50 ) 

6 .015E+01 

4 .6506-01 

1 . O43E+01 

( 5 . 

31 ) 

50) 

5 . 312E + 01 

3.777E-01 

9.87 3E + 00 

( 5- 

32 ) 

50) 

4 . 603E + 01 

3 . 144E-01 

9 . 073E+00 

{ 5 . 

33 ) 

50) 

3 .8796 + 01 

2 . 507E-01 

7 . 924E+00 

£ 5 , 

34 ) 

50 ) 

3 . 129E + 01 

1 .930E 01 

6 .478E+00 

( 5 , 

35 ) 

50 ) 

2 . 40 Q E + 0 1 

1 . 426E- 0 1 

5. 181E+00 

C 4 . 

3b ) 

50 ) 

1 .760E+01 

9 . 995E-02 

3 .862E+00 

C 4 , 

57 ) 

50 ) 

1 .Z19E + 01 

6 . 738E-02 

2 . 781E+00 

£ 4 , 

37 1 

50) 

8. 01 IE + 00 

4 . 305E-02 

1 .863E+00 

( 4 , 

38 ) 

50) 

5 . 022E + 00 

2 . 671E-02 

1 . 151E+00 

£ 4 , 

39 ) 

50) 

3.040E+00 

1 . 637E-02 

6.930E-01 

( 4 , 

39 ) 

50) 

1 .8 12E + 00 

9 . 946E-03 

3 . 958E-01 

C 4 , 

40 ) 

50) 

1 .091E + 00 

6 .0066- 03 

2.365E-01 

( 4 , 

34 ) 

50) 

6 . 78SE-01 

3 . 707E-03 

1 .587E-01 

( 4 , 

35 ) 

50) 

4 . 34 2E- 0 1 

2 . 325E- 03 

1 . 048E-01 

( 4 . 

36 ) 

50 1 

2 .806E-01 

1 .493E-03 

6 .807E-02 

( 4 , 

37 ) 

50 1 

1 .796E- 01 

9 .463E-04 

4 .309E-Q2 

( 4 . 

38 ) 

50) 

1 . 132E-01 

5 . 904E-04 

2 . 668E-02 

£ A , 

38 ) 

50) 

7.073E-02 

3 .675E-04 

1 . 629E- 02 

C 4 , 

39 ) 

50) 

4.453E-02 

2.33 DE- 04 

9 .662E-03 

( 4 . 

40 ) 

50 ) 

2.867E-Q2 

1 .500E-04 

6 . 006E-03 

( 4 , 

34 ) 

50) 

1 885E-02 

9 . 854E- 05 

4 .2436-03 

( 4 , 

35 ) 

50) 

1 .246E-02 

6 .511E-05 

2.916E-03 

( 4. 

36 ) 

50) 

8 . 120E-03 

4 . 225E-0S 

1 . 929E-03 

( 4 , 

37 ) 

50 ) 

5. 156E-03 

2 .660E-05 

1 .218E-Q3 

£ 4, 

38) 

50 ) 

3. 188E-03 

1 . 656E-05 

7 . 634E-04 

t 4 , 

38 ) 

50 ) 

1 .946E-03 

l .035E-05 

4 .567E-04 

( 4 , 

39 J 

50) 

1 .204E-03 

6.586E-06 

2 . 643E-04 

( 4 , 

40 ) 

SO) 

7. 772E-04 

4. 301E-06 

1 . 65 IE-04 

£ 4, 

34) 


T his case used 24.1 seconds of CPU time. 


Computed Results 

In Figure 9.4 the computed static pressure coefficient, defined as ip - p r )l(p r ufl2g c ) is plotted as a func- 
tion oft? for both the Fuler and viscous flow cases. Also shown are the experimental data of Grove, Shair, 
Petersen, and Acrivos (1964), and the exact solution for potential flow. 
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Figure 9.4 - Pressure coefficient for flow past a circular cylinder. 
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9.3 TRANSONIC DIFFUSER FLOW 


In this test case, transonic turbulent flow was computed in a converging-diverging duct. The flow en- 
tered the duct subsonically, accelerated through the throat to supersonic speed, then decelerated through a 
normal shock and exited the duct subsonically. F.xtensive experimental data are available for flow through 
rno,fi Che n Sajkm, and Kroutil, 1979; Bogar, Sajben and Kroutil, 1983; Salmon, Bogar, and Sajben, 
1983; Sajben, Bogar, and Kroutil, 1984; Bogar, 1986). 1'he computational domain is shown in Figure 9.5. 



Figure 9.5 - Computational domain for transonic diffuser flow. 


Reference Conditions 


Ihcthroat height of 0.14435 ft. was used as the reference length L r . The reference velocity u was 100 
tt/sec. 1 he reference temperature and density were 525.602 °R and 0.1005 lb m /ft 3 , respectively.' These val- 
ues match the inlet total temperature and total pressure used in other numerical simulations of this flow 
(Ilsieh, Bogar, and Coakley, 1987). 

Computation a[ Coordinates 

1 he x coordinate for this duct runs from —4.04 to +8.65. The Cartesian coordinates of the bottom wall 
are simply y — 0 for all x. For the top wall, the y coordinate is given by (Bogar, Sajben, and Kroutil, 1983). 


0-4144 for x< -2.598 

y = \ « cosh c/(a - 1 + cosh Q for -2.598 < x < 7.216 
0-5 for x^ 7.216 

where the parameter £ is defined as 


Ci(x/x,)[l + C 2 x/x,] C3 
(1 -*/*/) Q 

I he various constants used in the formula for the top wall height in the converging ( —2 598 <, x < 0) and 
diverging (0 £ x £ 7 . 216 ) parts of the duct arc given in the following table. 


Constant 

Converging 

Diverging 

a 

1.4114 

1.5 

X, 

-2.598 

7.216 

c, 

0.81 

2.25 

Q 

1.0 

0.0 

Cl 

0.5 

0.0 

C 4 

0.6 

0.6 


n,^ d £ flttcd coordinate s >' stem was generated for this duct and stored in an unformatted file to be read 
by PRO I ELS. The Cray runstream used to generate this file is listed below. Note that the Fortran pro- 
gram is included in the JCL as a L'NICOS "here document". 
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# USER=youri d PW= . 
t QSUB -eo -IT 60 
t QSUB -r SAJBEN$ 
set -x 
ja 

touch coords 
In coords fort. 7 
cat > temp.f << EOF 


C 

C THIS PROGRAM GENERATES A COORDINATE SYSTEM FOR THE 2-D 

C CONVERGING-DIVERGING SAJBEN DUCT. 

C 

C FORTRAN VARIABLE DEFINITIONS 

C 

C NX - NUMBER OF GRID POINTS IN X DIRECTION 

C NY NUMBER OF GRID POINTS IN Y DIRECTION 

C NIT - NUMBER OF SMOOTHING ITERATIONS 

C NSM - SPATIAL EXTENT OF SMOOTHING REGION 

C NP1 - X INDEX AT XP1 

C NP2 - X INDEX AT XP2 

C XMIN - MINIMUM VALUE OF X 

C XMAX - MAXIMUM VALUE OF X 

C XP1 - START OF FINE GRID 

C XP2 - END OF FINE GRID 

C 

C OUTPUT COMPUTED: 

C 

C X(I,J) - X COORDINATES AT GRID POINTS 

C Y( I , J ) - Y COORDINATES AT GRID POINTS 

C 

DIMENSION P(150),Q(150) 

DIMENSION X(150,150),Y(150,150) 

C 

c SET CONSTANTS FOR COORDINATES OF TOP WALL. "M" FOR CONVERGING 

C SECTION, "P" FOR DIVERGING SECTION 


C 

DATA ALFAM, DLM, C1M, C2M, C3M, CAM /1 . 41 14, -2 . 598 , 0 . 81 , 1 . 0 , 0 . 5, 0 . 6/ 
DATA ALFAP, DLP , C1P , C2P , C3P, CAP /1.5 , 7.216,2.25,0.0,0.0,0.6/ 

C 

c DEFINE PARAMETERS 

C 

XMIN = -4.04 
XMAX = 8.650 
XP1 = 0.0 
XP2 =4.0 
NX = 81 
NY = 51 
YMIN = 0.0 
YMAX =1.0 
NP1 = 20 
NP2 = 57 

XINC1 = CXP1 - XMIN)/( NP1 - 1) 

XINC2 = (XP2 - XP1) /( NP2 - NP1) 

XINC3 = (XMAX - XP2 ) /(NX - NP2 ) 

YINCR = (YMAX - YMIN)/( NY - 1) 

NIT = 8 
C 

C SET UP FINE AND COARSE GRID 

C 

P(l) = XMIN 
DO 10 I = 2, NX 

IF (I .LE. NP1) XINCR = XINC1 

IF (I .GT. NP1 .AND. I .LE. NP2 ) XINCR = XINC2 
IF (I .GT. NP2 ) XINCR = XINC3 
P(I) = P(I-l) + XINCR 
10 CONTINUE 

C 

C SMOOTH MESH BY AVERAGING BETWEEN NP1 AND NP2 

C 

DO 30 ITER = 1 , NIT 
DO 20 I = 2, NX-1 
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P(I) = (PCI-1) + P(I+1))X0.5 
20 CONTINUE 

30 CONTINUE 

C 

C GENERATE COORDINATES OF TOP WALL 

C 

DO 100 I = 1,NX 
IF (P(I) .LT. 0.0) THEN 
C CONVERGING SECTION 


XBAR = P(I)/DLM 

XD = 1. - XBAR 

IF (XD .LE. 0.0) XD = 1 . E-3 

XI = C1MXXBARX( ( 1 . +C2MXXBAR)X*C3M)/(XDX*C4M) 
Q(I) = ALFAM*COSH(XI )/( (ALFAM-1 . 0) + COSHCXI)) 
ELSE IF (P(I) .GE. 0.0) THEN 

C DIVERGING SECTION 

XBAR = P( I )/DLP 

XD = 1. - XBAR 

IF (XD .LE. 0.0) XD = 1 . E-3 

XI = C1PXXBARX( (1 .+C2PXXBAR)XXC3P)/(XDX*C4P) 

Q( I ) = AL FAP*COSH( XI )/((ALFAP-l .0) + COSH(XI)) 
ENDIF 

100 CONTINUE 
C 

C GENERATE X AND Y ARRAYS 

C 

DO 200 I = 1 , NX 
DO 200 J = 1 , NY 
X(I,J) = P(I) 

YTEMP = (J-l)XYINCR + YMIN 
Y(I,J) = Q(I)XYTEMP/YMAX 
200 CONTINUE 
C 

C WRITE UNFORMATTED COORDINATE SYSTEM FILE 

C 

WRITE (7) NX, NY 

WRITE (7) ((X(I,J),I=1,NX),J=I,NY), 

$ ((Y(I,J),I=1,NX),J=1,NY) 

STOP 

END 

EOF 

cft77 -b temp.o -d pq temp.f 
segldr -o temp.e 'temp.o 
temp . e 

cp coords $HOME/sajben . coords 
ja -cslt 


The resulting body-fitted coordinate system is shown in Figure 9.5. For clarity, the grid points are 
thinned by factors of 2 and 10 in the x and y directions, respectively. Note that for good resolution of the 
flow near the normal shock, the grid defining the computational coordinate system is denser in the x di- 
rection in the region just downstream of the throat. In the y direction, the computational coordinates are 
evenly spaced. The computational mesh , however, was tightly packed near both walls to resolve the tur- 
bulent boundary layers. 32 


Initial Conditions 

The initial conditions were simply zero velocity and constant pressure and temperature. Thus, 
u = v = 0 and p=T= 1 everywhere in the flow field. 


32 The distinction between the computational coordinate system and the computational mesh is explained in Section 
2 . 2 . 
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Boundary Conditions 


This calculation was performed in three separate runs. In the first run, the exit static pressure was 
gradually lowered to a value low enough to establish supersonic flow throughout the diverging portion of 
the duct. The pressure was lowered as follows: 


0.99 for 1 < n < 100 

p(t) = <( -2.1405 x + 1.20405 for 101 <n < 500 
0.1338 for 501 <n< 3001 


where n is the time level. The equation for p for 101 <n< 500 is simply a linear interpolation between 
p = 0.99 and p = 0. 1338. In the second run, the exit pressure was gradually raised to a value consistent with 
the formation of a normal shock just downstream of the throat. Thus, 


p{0 = 


3.4327 x 10 *n 
0.82 


0.89636 


for 3001 <n< 5000 
for 5001 < /i <6001 


Again, the equation for p for 3001 < n < 5000 is simply a linear interpolation between p 0.1338 and 
p — 0.82. In the third run, the exit pressure was kept constant at 0.82. 

The remaining boundary conditions were the same for all runs. At the inlet, constant total pressure and 
temperature were specified, and the _y-velocity and the normal gradient of the x- velocity were both set equal 
to zero. At the exit, the normal gradients of temperature and both velocity components were set equal to 
zero. At both walls, no-slip adiabatic conditions were used, and the normal pressure gradient was set equal 
to zero. 


These boundary' conditions are summarized in the following table. 

Boundary Boundary Conditions 

^ = 0 du/dn = 0, v = 0, p T = T t = 1 

£ = 1 dujdn = dvjdn = 0, p = p(t), dT/dn = 0 

>7 = 0 u — v — Q,dpjdn=dTldn=Q 

rj = 1 u = v = 0, dpjdn — dTjdn = 0 


PROTEUS Input File 


The namelist input file for the first run w'as called SAJBENA P2DIN0 and is listed below, along with 
a brief explanation of each line. The contents of this listing should be compared with the detailed input 
description in Section 3.0. 


TRANSONIC DIFFUSER FLOW, RUN 1 
SRSTRT 
IREST=1 , 

SEND 

SI0 

IV0UT=1, 4, 30,47X0, 

IPRT=1000, 

IPRT1=2, IPRT2=1 , 

IPL0T=-1 , 

SEND 

SGMTRY 

NGEOM=10, 

SEND 

SFL0W 

LR=0. 14435, 


Write restart files. 


Print u, M, p. 

Print every 1 ,000 time levels. 

Print at every other £ index, every r\ index. 
Write CONTOUR plot file. 


Get computational coordinates from file. 


Set L, . 
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UR = 1 00 . , 
TR=525.602, 
RHOR=0.1005, 
GAMR=1 . 4, 

&END 

&BC 

J BC1 (1,1) =57 , 

JBC1 ( 2* 1 ) =13* 
JBC1 ( 3, 1 ) =21 , 

JBC1 (4,1) = 47 , 

JBC2C 1 , 1 ) =53, 
JBC2C 2 , 1 ) = 1 1 , 
JBC2(3,1)=21, 
JBC2(4,1)=43, 
JTBC1 ( 4 , 2 ) = 1 , 
NTBC=2, 

NTBCA=100,500, 


J BC1 ( 1 , 2 ) =53, 

JBC1 ( 2, 2 ) =1 3, 
JBC1(3,2)=23, 

JBC1 (4,2) =41 , 

JBC2(1,2)=53, 
JBC2( 2, 2) =11 , 
JBC2(3,2)=21, 
JBC2C 4,2) = 43, 


Set u r . 

5^ / . 

Set p r . 

Constant specific heats. 


GBC1 ( 1 , 1 ) =1 . , GBC1(1,2)=0. , 


GBC1 ( 2 , 1 ) =0 . , 
GBC1(3,1)=0., 

GBC1 ( 4 , 1 ) = 1 . , 


GBC1 ( 2, 2) =0 . , 
GBC1 ( 3, 2) =0 . , 


GBC2(1,1)=0. 
GBC2(2,1)=0. 
GBC2C 3, 1 ) =0 . 
GBC2C A, 1 ) = 0 . 


GBC2(1,2)=0. , 

GBC2( 2, 2) = 0 . , 

GBC2C 3, 2) =0 . , 

GBC2C 4, 2) = 0 . , 

4th. b. c. at £ = 1 is general unsteady. 
2 values in b. c. table. 

Time levels in b. c. table. 


T t — 1 , dTjdn = 0 
at£ = 0, 1. 
dujdn = 0 at £ = 0 , 1 . 
v = 0, dvjdn — 0 
*tt = 0 , 1 . 
p T = 1 , p specified 
at £ = 0 , 1 . 
d77<5rc = 0 a/ tj = 0, 1. 

0 af *7 = 0, 1. 
v = 0 a/ >7 - 0, 1. 
dpjdn = 0 at t] = 0, 1. 


GTBC1(1,4,2)=0.99, GTBC1 ( 2 , 4 , 2 ) = 0 . 1 338 , Values in b. c. table. 

SEND 
&NUM 


Nl=81, N2=51 , 

IPACK(2)=1, 

SQ( 2, 1 ) =0 . 5, SQ(2,2)=1 .002, 

I AV4E=2, IAV2E=2, IAV2I=0, 
CAVS4E=5*0 . 005/ CAVS2E=5*0 . 1 , 
THC=1.0,0.5, 

THX = 1 . 0 , 0 . 5, 1 . 0 , 

THY=1.0,0.5,1 .0, 
THE=1.0,0.5,1.0, 

SEND 
STIME 
IDTMOD-1 , 

IDTAU=5, CFL = 0 . 5 , 

NTIME=3000, 

ICTEST=1, EPS=4* . 000001 , 

SEND 
STURB 
ITURB=1 , 

IWALL2=1, 1, 

SEND 

SIC 

SEND 


Use an 81 x 51 mesh. 

Pack in *j direction. 

Pack fairly tightly near both *j boundaries. 

Use nonlinear coefficient artificial viscosity. 
CAVS2I=5*0., A rtificial viscosity coefficients . 

Second-order time differencing. 


Recompute At every time step. 

Spatially varying At. 

Limit of 3000 time steps. 

Use AQ^ cje — 10 6 as convergence criteria. 


Turbulent flow. 

Walls at *] = 0 and l . 

Use default initial conditions. 


In namelist BC, note that at £ = 1 the fourth boundary condition type is specified by JBC 1(4,2) as 
P=f and that the value /is specified by the table of GTBC1(_,4,2) V 5 . NTBCA. In namelist NUM, 
three-point second-order time differencing is being used with a spatially varying time step. This is somewhat 
unusual, and causes a warning message to be printed, but may be beneficial in some cases. The values of 
CAVS2E and CAVS4E arc based on experience for internal flows with normal shocks. The optimum val- 
ues for these parameters seem to be a function of the type of flow, the type of time differencing, and the size 
of the time step. In namelist I I\1E, a small CFL value is being used. This minimized starting transients 
and enhanced stability when using an unsteady pressure boundary condition. Note that the time level will 
run from 1 to 3001, but that the time levels in the unsteady boundary condition table only run from 100 
to 500. This causes a warning message to be printed. For n< 100 the boundary condition value will be 
set equal to the first value in the table, and for n > 500 it will be set equal to the last value in the table. 

The input file for the second run, SAJBENB P2DIN0, was similar to that for the first run. The only 
differences were: 

F In the TITLE, RUN 1 was changed to RUN 2. 
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2. In namelist RSTRT, IREST = 2, to read and write restart files. 

3. In namelist BC, the time levels NTBCA in the boundary condition table were 3001 and 5000, and 
the values GTBC1( 1,4,2) and GTBC1(2,4,2) were 0.1338 and 0.82. 

The input file for the third run, SAJBENC P2DIN0, was similar to that for the second run. The only 
differences were: 

E In the TITLE, RUN 2 was changed to RUN 3. 

2. In namelist BC, GBC1(4,2) was specified as 0.82. The parameters JTBC1(4,2), NTBC, NTBCA, 
and GTBC1 were defaulted. 

3. In namelist NUM, CAVS4E was lowered to 5*0.0004. 

4. In namelist TIME, CFL was raised to 5.0. 

JCL 


The Cray UNICOS job control language used for the first run is listed below. 

» USER=youri d PW= . 

t QSUB -eo -1M 2.0Mw -IT 1800 

i QSUB -r SAJBENA 

set -x 

ja 

touch plot 

touch chist 

touch rqout 

touch rxout 

In plot fort. 9 

In chist fort . 1 0 

1 n rqout fort . 1 2 

In rxout f ort . 14 

In $H0ME/saj ben . coords fort. 7 

fetch input -mUX -t 1 f n=saj bena , f t=p2din0 * 

cat > mods << EOM 

XID TEMP 

XD PARAMS1 .19 

PARAMETER CN1P = 81, N2P = 51) 

EOM 

update -p $HOME/p2dlO . u -i mods -c temp -f 

cft77 -d pq temp.f 

segldr -o temp.e temp.o 

temp.e < input 

cp rqout $H0ME/sa j benb . rqi n 

cp rxout $H0ME/sa j benb . rxi n 

bintran -mUX -v plot 

bintran -mUX -v chist 

ja -cslt 

This JCL is essentially the same as the example presented in Section 8.3, but with lines eliminated that 
are not applicable to this case. 

The JCL for the second run was similar to that for the first run. The only differences were: 

E The following In commands were added to those used in the first run. 

In $HOME/sajbenb. rqin fort. 11 
In $H0ME/sa jbenb . rxin fort. 13 

2. In the fetch of the input file from the front end, the file name was sajbenb . 

3. In the cp commands used to save the restart files at the end of the run, the names of the output files 
were SHOMEjsajbenc.rqin and SHOMEjsajbenc.rxin. 

The JCL for the third run was similar to that for the second run. The only differences were: 


PROTEUS 2 D User s Guide 


Test Cases 107 



Original page is 

OF POOR QUALITY 


1. In the In commands for the restart files at the beginning of the run, the names of the restart files 
were SHOMEjsajbenc.rqin and SHOM Ej sajbenc.rxin. 

2. In th q fetch of the input file from the front end, the file name was sajbenc. 

3. In the cp commands used to save the restart files at the end of the run, the names of the output files 
were 5/ / OME sajbcnd.rqin and SHOM Ej sajbend.rxin. 

Note that restart tiles were written and saved at the end of the third run in case a fourth run was necessary. 
A fourth run was not used for this case, however. 

S tandard P ROJ 11 S Output 

The output listing for the third run is shown below. In the flow field printout, only the Mach number 
at the last time level is included. 

NASA LEWIS RESEARCH CENTER 
INTERNAL FLUID MECHANICS DIVISION 
2-D PROTEUS VERSION 1.0 
SEPTEMBER 1989 

TRANSONIC DIFFUSER FLOW, RUN 3 

SRSTRT IRF.ST = 2, NRQIN = 11, NRQOUT = 12. NRXIN = 13, NRXOUT = 14, SEND 

S!fJ IPERUG = 20*0, IPLOT = -1, IPLT = 0. IPLTA = 101*0, IPRT =■ 1000. IPRT1 s 2, IPRT2 = 1, IPRTA = 101*0, 

1 P R T 1 A -- 2. 4, 6, 8, 10, 12, 14, 16, 18, 20. 22. 24. 26, 28. 30. 32, 34. 36, 38, 40. 42, 44, 46, 48, 

SO, 52, 54. 56, 58 , 60, 62, 64. 66, 68, 70, 72, 74, 76, 78, 80, 81 , 39*0. IPRT2A = 1, 2. 3, 4. 5. 6. 7, 

‘U 10, 11, 12, 13, 14, 15, 16, 17, 18. 19, 20, 21. 22. 23, 24, 25, 26. 27, 28, 29, 30, 31. 32, 33, 

34- 35, 36. 37, 38, 39, 40, 41, 42, 43. 44, 45, 46, 47, 48, 49, 50. 51, IUNITS = 0, IVOUT = 1, 4, 30, 


4 7*0, 

NOR I D 

- 7. NHIST = 10, NHMAX = 

100 , 

NOUT = 6 , 

NPLOT = 

9, 

NPLOTX = 8, NSCR1 = 2 

0 , SEND 


fiGMTRY 

I AX I 

= 0 . NGEOM = 10. RMAX s 1 

.0, 

RMIN = 0.0, 

THMAX 

= 90. 

0, 

THMIN = 0.0, XMAX 

= 1 .0 

, XMIN = 

0.0, 

YMAX -- 

1.0, 

YMIN = 0.0. SEND 











iiF LOW 

GAMR = 

1.4, HSTAGR = 0.0. 

I C VARS 

= 2 

, I EULER = 

0, IHSTAG = 

0 , 

ILAMV = 0, I SWIRL 

= 0, 

ITHIN = 

2*0 , 

KTR = 
525.602, 

0.0, 

LR - 0.14435, MACHR = 

0.0, 

MUR 

= 0.0, PRLR = 0.0 

, RER 

= 

0.0, RG = 1716.0, 

RHOR 

= 0.1005, 

TR = 

UR - 

1U0.0, 

SEND 











SBC I 

BC1 - 

510*0, I BC2 = 810*0, 

JBC1 = 

57, 

13, 21, 

47, 0 , 

53 , 

13. 

23, 41, 0, JBC2 

= 53, 

11, 21 , 

43, 0, 53 

11, 2 

1 ■ 43 . 

0. FBC 1 = 510*0.0, 

FBC2 - 

B10 

*0.0, GBC1 

= 1.0. 

2*0 . 0 


1.0, 4*0.0, 0.82, 

0.0, 

GBC2 = 10 

*0.0, 

J1KC1 

- 10*0 

, JT8C2 = 10*0, NTBC 

= 0, 

NTBCA = 10*0, 

GTBC 1 s 

1 00*0 

.0. 

GTBC2 = 100*0.0, 

KBCl = 

2*0, KBC2 - 2*0, 


SEND 

ENUM ALPHA! = 0.5. ALPHA2 = 0.5, CAVS2E = S*0.1, CAVS2 I = 5*0.0, CAVS4E = 5*4.0E-04, IAV2E = 2. IAV2I = 0, 

I AV4F - 2. I PACK * 0, 1. N1 = 81. N2 = 51, SO = 0.0, 0.5, 10000.0, 1.002, THC = 1.0, 0.5, 0.0, THE = 1.0, 

0.5- 

1,0. THX = 1.0, 0.5. 1.0, THY = 1.0, 0.5, 1.0. THZ = 1.0, 2*0.0, SEND 

ST I ME CFl * 5.0. 9* 1.0, CFLMAX = 10.0, CFLMIN = 0.5, CHG1 = 4.0E-02, CHG2 = 6.0E-02, DT = 10*1.0E-02, DTF1 = 1.25, 

PTF 2 - 1.25, LtTMAX - 1.0E-02, DTMIN = 1.0E-02. EPS = 4*1.0E-06, 1.0E-03, ICHECK = 10, ICTEST a 1, IDTAU = 5, 

IDTMOD - 1, NDTCYC = 2, NITAVG - 10, NT I ME * 3000, 9*0. NTSEQ = 1, SEND 

STUHH APLUS - 26.0. CB = 5.5. CCLAU = 1.68E-02, CCP = 1.6, CKLEB = 0.3, CNA = 2.0, CNL = 1.7, CVK = 0.4, 

CWK - 0-25. ILDAMP = 1, INNER = 1, ITETA = 0, ITURB - 1. ITXI = 1, IWALL1 = 2*0. IWALL2 = 2*1, PRT = O.*!, 

REXTl - 0.0, REX T 2 = 0.0, SEND 

*"*'* WARNING - SPATIALLY VARYING TIME STEP REQUESTED WITH T 1 ME- ACCURATE DIFFERENCING SCHEME. 

IDTAU = 5 

THC = 1.00DCE*00 5.0000E-01 

THX - 1 . OOQ0E*00 5 . OOOOE-Ol 1.0000E+00 

THY = 1 . 0000E *00 5. 0000E-01 1.0000E+00 

The = 1.0000E+00 0 . OOOOE^OO O.OOOOE+OO 

THE = 1 . GOO0E»00 5 . OOOOF-O 1 1.0000E*00 

NORMAL I E I NG COND I T I ONS 

LENGTH, LR = 1.4435E-01 FT 

VELOCITY. UR = 1.0000E*02 FT/SEC 

TEMPERATURE, TR = 5.2560E+02 DEG R 

DENSITY, RHOR = 1.0050E-01 LBM/FT3 

VISCOSITY. MUR = 1 .2 I52E-05 LBM/FT-SEC 

THERMAL CONDUCT I V 1 TV , KTR = 1.0309E-01 LBM-FT/SEC3-DEG R 

PRESSURE. RHOR * UR * *2 = 1.0050E + 03 LBM/FT-SEC2 

ENFRUV/VOL.. RHOR * UR * *2 = 1.0050E + 03 LBM/FT-SEC2 

GAS CONSTANT, UR* *2/TR = 1.9026E + 0I FT2/SEC2-DEG R 

SPECIFIC HEAT. UR*»2/TR * 1.90Z6E*01 FT2/SEC2-DEG R 
STAGNATION ENTHALPY, UR**2 = l.OOOOE*04 FT2/SEC2 
TIME, LR/UR s 1 . 4435E- 03 SEC 

REFERENCE CONDITIONS 

REYNOLDS NUMBER. PER 
MACH NUMBER , MACHR 
SPECIFIC HEAT RATIO, GAMR 
LAMINAR PRANDTL NUMBER, PRLR 
'•REFERENCE** PRANDTL NUMBER, PRR 
SPECIFIC HEAT AT CONST. PRESS. 

SPECIFIC HEAT AT CONST. VOL- 
GAS CONSTANT. RG 
PRESSURE, PR 

STAGNATION ENTHALPY, HSTAGR 


BOUNDARY CONDITION PARAMETERS 


= 1 . 1938E+05 

* 8 . 8992E- 02 
■ 1 . 4D0QE+0C 
« 7 . 080 IE- 0 1 

* 2.2428E-03 

= 6 . 0060E*QS FT2/SEC2-DEG R 
- 4 . 29Q0E*OS FT2/SEC2-DEG R 
» 1 . 7 1 60E*03 FT2/SEC2-DEG R 
= 2,8 3 73E + 03 LBF/FT2 

* 3 . 1 6 1 BE + 06 FT2/SEC2 


108 lest Cases 


PROTEUS 2-D User s Guide 


ORIGINAL PAGE FS 
OF POOR QUALITY 


JBC1 (1.1) = 

57 

GBC 1(1,1) = 

1. OOOOE+OO 

JBC1 (2 , 1 ) = 

13 

GBC 1(2,1) = 

O.OOOOE+OO 

JBC 1 (3,1) = 

21 

GBC 1 (3.1 ) = 

0 . OOOOE+OO 

JBC1 (4,1) = 

47 

GBCK4.il = 

1 . OOOOE+OO 


JBC2 

(1,21 = 

53 

GBC2 (1,2) = 

O.OOOOE+OO 

jbc: 

(2.21 = 

11 

GBC2 (2,2) = 

O.OOOOE+OO 

JBC2 

(3,2) = 

21 

GBC2 (3,2) = 

O.OOOOE+OO 

JBC2 

(4,2) = 

43 

GBC2 (4,2) = 

O.OOOOE+OO 


JBC2 (1,1) = 

53 

GBCSO.l) = 

O.OOOOE+OO 

JBC2 (2,1) = 

11 

GBC2C2.1) = 

O.OOOOE+OO 

JBC2 (3,1) = 

21 

GBC2C3.1) = 

O.OOOOE+OO 

JBC2 (4,1) = 

43 

GBC2 (4,1) = 

O.OOOOE+OO 


JBC 1(1,2) = 

53 

GBC 1(1,2) = 

O.OOOOE+OO 

JBCK2.2) = 

13 

GBC 1 (2,2) = 

O.OOOOE+OO 

JBC 1(3,2) = 

23 

GBCK3.2) = 

O.OOOOE+OO 

JBC1 (4,2) = 

41 

GBCK4.2) = 

8. 2000 E- 01 


MACH NUMBER 


AT TIME LEVEL 9001 


ixr 

= 1 

2 

I ETA 


51 

0 .OOOOE + OO 

O.OOOOE+OO 

50 

1 . 1224E-01 

1 . 1418E-01 

49 

2. 1777E-01 

2.2081E-01 

48 

2 . 9665E-0 1 

2 . 9971E-0 1 

47 

3 .4551E-01 

3.481 3E-0 1 

46 

3. 7432E-01 

3.764 9E-0 1 

45 

3 . 9646E-0 1 

3. 9818E-01 

44 

4 . 1 624E-0 1 

4 . 1748E-01 

43 

4.3312 E- 0 1 

4 . 3389E-0 1 

42 

4 .4637E-0 1 

4 . 4 673E- 0 1 

41 

4 . 5524E- 0 1 

4 . 55 32E- 0 1 

40 

4.6050E-01 

4 . 6039E- 0 1 

39 

4.61 02E- 0 1 

4 . 6089E-01 

38 

4.5950E-01 

4 . 5 942E- 0 1 

37 

4 . 585 1 E- 0 1 

4.S847E-01 

36 

4 .581 OE-O 1 

4 . 5806E-01 

35 

4 .5799E-01 

4.5796E-01 

34 

4 . 5800E-01 

4 . 57 96E- 0 1 

33 

4 . 5808E-0 1 

4 .5803E-01 

32 

4 . 58 1 4 E-0 1 

4 . 5808E-0 1 

31 

4.581 9E-0 1 

4 .58 1 IE-01 

30 

4 . 5832E-0 1 

4 . 5822E- 0 1 

29 

4 . 58 72E- 0 l 

4 . 5858E- 0 1 

28 

4 . 5 94 1 E- 0 1 

4 . 5924E-0 1 

27 

4.6027E-01 

4 . 6007E-01 

26 

4 . 6108E-0I 

4 . 6089E-O1 

25 

4.61 79E- 0 1 

4 . 6162E-01 

24 

4 . 6235E-0 1 

4 . 6220E-01 

23 

4 . 6281E-0 1 

4 . 626BE-01 

22 

4 . 6320E-01 

4 . 6310E-01 

21 

4 . 6358E-0 1 

4 . 6350E-0 1 

20 

4 . 6394E-01 

4. 6386E-01 

19 

4 . 6430E-01 

4 . 6422E- 0 1 

18 

4 . 6456E-0 1 

4 . 6448E-0 1 

1 7 

4 . 64 75E-01 

4 .6468E-Q1 

16 

4 . 6492E-0 1 

4 . 6484E-01 

15 

4. 6520E-01 

4.651 1 E-0 1 

14 

4. 6575E-01 

4 . 65 64E-01 

13 

4.6701E-01 

4 . 6686E-01 

12 

4 . 6 742E- 0 1 

4 . 6726E-01 

1 1 

4 .6300E-01 

4 . 6302E-01 

10 

4 . 5482E-0 1 

4.551 2E- 0 1 

9 

4 . 4282E-0 1 

4 .4349E-01 

8 

4 . 2694E-0 1 

4.28 08E-0 1 

7 

4 . 0809E-01 

4 . 0970E-0 1 

6 

3. 8650 E- 01 

3 . 8859E-0 1 

5 

3 . 5725E-0 l 

3 . 5985E-0 1 

4 

3 . 0678E-01 

3.0990E-01 

3 

2.26 7 9E-0 1 

2.299 6E-0 1 

2 

1 . 1801E-0 1 

1 . 2008E-0 1 

1 

0 . OOOOE+OO 

0 . OOOOE+OO 

IXI 
I ETA 

= 20 

22 

51 

0 . OOOOE+OO 

O.OOOOE+OO 

50 

1 .8673E-01 

1 .8602E-0 1 

49 

3. 7350E-01 

3. 7346E-01 

48 

5. 1537 E- 01 

5. 1678E-01 

47 

6 . 10 78E-01 

6 . 1833E-0 1 

46 

6 . 7562E-0 1 

6 .3657E-01 

45 

7 . 3057E-01 

7.4164E-01 

44 

7.8750E-01 

7 . 9812E-01 

43 

8 .4501E-01 

8 . 5666E- 0 1 

42 

8 . 9564E-0 1 

9. 1151E-01 

41 

9 . 3276E-01 

9 .5594E-0 1 

40 

9.5291E-01 

9 . 8459E-0 1 

39 

9.626 1E-0 1 

9. 98O6E-01 

38 

9. 7201E-01 

1 . 007 IE + 00 

37 

9. 8157 E- 01 

1 . 0 165E + 00 

36 

9.8497E-01 

1 .0197E + 00 

35 

9 .8456E-01 

1 . 0194E + 00 

34 

9 .8425E-01 

1 . 0 1 95E + 00 

33 

9. 8331 E- 01 

1 . 0190E + 00 

32 

9.8161 E-0 1 

1 . 0177E + 00 

31 

9. 7946E-01 

1 .0160E + 00 

30 

9. 7707E-01 

1 . 0142E + 00 

29 

9.7460E-01 

1 .0123E + 00 

28 

9.7226E-01 

1 .0107E + 00 

27 

9 . 6995E- 0 1 

1 .0091E + 00 

26 

9. 6779E-01 

1 . Q076E+0Q 

25 

9 . 6584E-0 1 

1 . 0063E + 00 

24 

9 . 642 OE- 0 1 

l .0052E+00 

23 

9. 6290E-01 

1 . 0 042E + 00 

22 

9. 6197E-01 

1 . 0035E + 00 

21 

9.6140E-01 

1 . 0031E + 00 

20 

9. 6114 E- 01 

1 .0028E + 00 

19 

9.61 15E- 01 

1 . 0029E+00 

18 

9 . 6142E-01 

1 .0032E+00 

17 

9.6150E-01 

1 .0033E+00 


4 

O.OOOOE+OO 
1 .0697E-01 
2.0805E-01 
2 . 7724E-0 1 
3.21S7E-01 

3 . 5332E- 0 1 
3. 7968E-01 
4.0191E-01 
4. 1866E-01 
4.31 73E-0 l 
4 . 4245E- 0 1 
4.5108E-01 

4 . 5639E- 0 1 
4 . S 729E-0 1 
4.5642E-01 
4 . 5602E-0 1 
4.560 7E- 0 1 
4 . 5 623E- 0 1 
4 . 5644E-0 1 
4.S667E-01 
4.5692E-01 
4.5735E-01 
4.5816E-01 
4 . 5940E-0 1 
4 . 6089E- 0 1 
4 . 6240E- 0 1 
4 . 6378E- 0 1 
4 . 6495E-0 1 
4 . 6594E-0) 
4 . 6678E-01 
4.6750E-01 
4 . 6814E-01 
4 . 6867E-01 
4 . 6906E-0 1 
4 . 6926E-0 1 
4 . 6940E- 0 1 

4 . 6 963E- 0 1 
4 . 702 LE-0 1 
4 . 7002E- 0 1 
4.6630E-01 
4 . S882E-01 
4 .4845E-01 
4 . 3535E-02 
4 . 1871E-01 
3 . 9630E- 0 1 
3.691 IE- 01 
3.3615E-01 
2. 9033E-0 1 
2. 1908E-01 
1 . 1403E-01 
O.OOOOE+OO 

24 

O.OOOOE+OO 
1 .9090E-01 
3.8334E-01 
5 . 3099E-0 1 
6 . 3580E- 0 1 
7. 0802E-01 
7 . 6574E-0 1 
8.231 0E- 0 1 
8 .8309E-0 1 
9 . 4052E-0 1 
9.8775E-01 
1 .0197E + 00 
1 .0371E + 00 
1 . 048 1 E + 00 
1 .0579E + 00 
1 .0605E + 00 
1 . 0603E ♦ 00 
1 . 060SE + 00 
1.0596E+00 
1 .058 0E + 00 
1 .0560E + 00 
1 .0539E + 00 
1 .0520E + 00 
1 .0503E + 00 
1 .0487E + 00 
1 .0471E + 00 
1 .0456E+00 
1 .0443E + 00 
1.0432E+00 
1.0424E+00 
l . 04 1 9E+00 
1 .0417E + 00 
1 .0418E+00 
1 .0422E+00 
1.0423E+00 


6 

O.OOOOE+OO 

8 . 4 799E-02 
1 . 753 1E-0 1 
2.4031E-01 
2. 7694E-01 
3 . 0 169E-0 1 
3 . 2520E- 0 1 
3 . 5 124E-01 
3.791 9E- 0 1 
4 . 0551E-01 
4 . 26 38E-0 1 
4. 3960E-01 
4 . 4528E-0 1 
4.4586E-01 
4 .4509E-0 1 
4 .4497E-01 
4 . 454 6E- 0 1 

4 . 4 624E- 0 1 

4.4 724E- 0 1 
4.4850E-01 
4 . 5007E-0 1 
4 .5216E-01 
4 . 54 9 IE- 0 1 
4 . 5828E- 0 1 
4.6191E-01 
4 . 6542E-0 1 
4 . 6853E-0 1 
4.71 13E-01 
4 . 732 1 E- 0 1 
4.748 7E- 0 1 
4 . 76 18E-0 1 

4. 7 724E-0 1 
4. 7806E-0 I 
4 . 7863E-0 1 
4 . 7892E-01 
4 . 7910E-01 
4 . 7947E-01 
4.801 OE- 0 1 
4. 7945E-01 
4. 7526E-01 
4 . 6694E-0 1 
4 . 5336E-0 1 
4.3368E-01 
4 . 0827E-0 1 
3.791 9E- 0 1 
3.4922E-01 
3. 1 683E-01 
2 . 7234E- 01 
2. 0155E-01 
1 .0328E-01 
O.OOOOE+OO 

26 

O.OOOOE+OO 
1 .971 IE-01 
3 . 98 73E-0 1 
5 . 5335E-01 
6 .5837E-01 
7 . 33I9E-01 
7 . 9716E-01 
8 . 6069E-0 1 
9 .24 75E-0 1 
9.81 76E-0 1 
1 .0265E+00 
1 .0572E+00 
1 .0755E + 00 
1.0864E+00 
1 . 0953E + 00 
1 .0«72E+00 
1 . 0974E+00 
1 . 0978E + 00 
1 .0965E + 00 
1 .0945E + 00 
1.0921E+C0 
1 .0897E + 00 
1 .0873E + 00 
1.0851E+00 
1 .0831E+00 
1 .0813E + 00 
1 . 0799E + 00 
1 .0788E + 00 
1 . 0781E+00 
1 .0776E + 00 
1 .0774E + 00 
1 . 0774E + 00 
1 .0777E + 00 
1 . 0783E+00 
1 . 0787E+00 


8 

0 . 0QOOE+OO 
7 . 2660E-02 
1 .4563E-01 
2.0004E-01 
2 . 3589E-01 
2 .586 IE- 0 1 
2 . 7205E-0 1 
2 .8256E-0 1 
2.9701E-01 
3. 18L6E-01 
3 . 4363E- 0 1 
3 . 6836E-01 

3 -8726E-0 1 
3 . 9813E-01 
4 . 0332E-0 1 
4 . 0698E- 0 1 
4. 1094E-01 
4 . 15 78E-01 

4 . 2 1 5 1 E- 0 1 
4 . 28 09E- 0 1 
4. 3541 E- 01 
4 .4346E-01 
4.520 7E- 0 1 
4 . 6088E- 0 1 
4 . 6922E-01 

4 . 7 6 6 2 E- 0 1 
4 .8275E-0 1 
4.876 IE-01 
4 . 9129E-01 
4.9406E-01 
4 . 9609E-01 
4 . 9761E-01 
4 . 98 74E-01 
4 . 9 95 1 E- 0 1 
4 . 9 98 7E- 0 l 
5.001 OE- 0 1 
5 . 0046E-01 
5 . 0134E-01 
5 . 0137E-01 
4 . 9612E-01 
4 .857 IE- 0 1 
4. 7067E-01 
4 .5232E-01 
4.31 98E-01 
4 . 1093E-01 
3. 8731 E- 01 
3 . 5428E- 0 l 
3 . 040 1 E- 0 1 
2 .2776E-Q 1 
1 . 1883E-01 

0 . OOOOE+OO 

28 

0. 0000E+OO 
2. 1293E-01 
4.3301E-01 
6.051 1E-0L 
7. 1 98 IE- 0 1 
7 . 9994E- 0 1 
8 . 6556E-0 1 
9.2223E-0 1 
9.71 OOE-O 1 

1 . 0143E + 00 
1 . 0524E + 00 
1 . 0851E + 00 
1 . 1 106E + 00 
1 . 1297E + 00 
1 . 1422E + 00 
1 . 1431E + 00 
1 . 1423E + 00 
1 . 1430E + 00 

1 . 1414E + 00 
1 . 1 396E + 00 
1 . 1374E + 00 
1 . 1348E + 00 
1 . 1323E + 00 
1 .1300E + 00 
1 .1277E + 00 
1 . 1252E + 00 
1 .1229E + 00 
1 . 1206E + 00 
1 . 1 186E+00 
1 . 1 170E+00 
1 . 1 159E+00 
1 . 1 151E+00 
1 . 1147E+00 
1 .1150E+00 
1 .U52E + 00 


10 

0 . OOOOE + OO 
1 . 1059E-01 
2 . 0730E-0 1 
2.7685E-01 
3. 2413 E- 01 
3 . 5733E-0 l 
3 . 793 1E-01 
3.916 7E- 0 1 
4.0075E-01 

4. 1173 E- 01 
4. 2479 E- 01 
4 . 3666E-01 
4 . 4454E-0 1 
4 . 48 99E-0 1 
4.5247E-01 
4 . 5555E- 0 1 
4.5926E-01 
4 . 64S4E-0 1 
4. 7107E-01 
4. 7844E-01 
4.8661E-01 
4 . 9531E-0 1 
5 . 0426E- 0 1 

5 . 1293E-0 1 
5 . 2078E-0 1 
5. 2743 E- 01 
5. 3277E-01 
5 . 3685E-01 
5. 3991 E- 01 
5.421 9E-0 1 
5 . 4392E-0 1 
5 . 4526E-0 1 
5.4636E-01 
5.4716E-01 
5. 4765 E- 01 

5 . 4 798E-Q 1 
5 . 484 1 E-0 1 
5 . 4828E-0 1 
5 . 4458E-0 1 
5 . 3656E-0 1 
5.2550E-01 
5. 1270E-01 
4 . 9890E-0 1 
4.831 OE- 0 1 
4. 6134 E- 01 
4 . 3084E- 0 1 
3.911 SE- 0 1 
3 . 3658E-0 1 
2.5383E-01 
1 . 3387E-01 
0 .OOOOE+OO 

30 

0. 0000E+OO 
2 . 220 IE- 0 1 
4 . 3645E- 0 1 
5.9867E-01 
7. L5C6E- 01 
8 . 0314E-01 
8 . 7735E-01 
9.4458E-01 
1 . 0063E + 00 
1 . 0588E + 00 
1 . 0985E + 00 
1 . 1262E + 00 

1 . 1464E + 00 
1 . 1623E + 00 
1 . 1756E + 00 
1 . 1814E + 00 
1 . 1839E + 00 
1 . 1840E+00 
1 . 1812E + 00 
1 . 1780E + 00 
1.1743E+00 
1 . 1708E+00 
1 . 1674E+00 
1. 1 643E+00 
1. 1613E+00 
1. 1587E+00 
1. 1565E + 00 
l . 1 546E + 00 
1 . 1534E + 00 
1 .1525E+00 
1 .1522E+00 
1 . 1522E+00 
1. 1527E+00 
1. 1536E+00 
1. 1541E+00 


12 

0 . OOOOE + OO 
1 .513QE-01 
2 . 8 389E-0 1 
3 . 7954E- 0 1 
4.4907E-01 
5 . 0034E-01 
5 . 3 7 35E-0 1 
5 . 6563E-01 
5 . 8 705E- 0 1 
6.0262E-01 
6 . 1 385E-01 
6.221 OE- 0 1 
6 . 2908E-0 1 
6. 3592 E- 01 
6 . 4030E- 0 1 
6 . 3934E-01 
6 . 380 1E-0 1 
6 . 3684E-01 
6.3534E-01 
6. 3353 E- 01 
6.31 5 6E-0 1 
6 . 2960E-01 
6.2791E-01 
6. 2661 E~ 01 
6 . 2561 E- 0 1 
6.2478E-01 
6.24 1 IE-01 
6.2357E-01 
6 . 2 322E- 0 l 
6 . 2303E- 0 l 
6 . 2304E-0 1 
6 . 2322E-0 1 

6 . 2 35 9E- 0 1 
6 .2403E-01 
6 , 24 3 OE- 0 1 
6 . 2458E-0 1 
6.251 6E- 0 1 
6.240 7E- 0 1 
6 . 1 920E-01 
6. 1223 E- 01 
6 . 0399E-01 
5 . 9343E-0 1 
5. 7948E-01 
5.6087E-01 
5 . 3352E-01 
4 . 9304E-0 1 
4 . 429 1 E-0 1 
3. 7785E-01 
2 . 829 7E- 0 1 
1 .4944E-01 
O.OOOOE+OO 

32 

0 . OOOOE + OO 
2 . 2959E-01 
4 . 5885E- 0 1 
6 . 3503E-01 
7.5810E-01 
8 . 4855E- 0 1 
9.2294E-01 
9.9183E-01 

1 . 0549E + 00 
1 . 1033E + 00 
L . 1408E + 00 
1 . 1 722E + 00 
1 . 1959E + 00 
1 .2098E + 00 

1 . 2 1 74E + 00 
1 .2236E + 00 
1 . 228 IE ♦ 00 
1 .2279E + 00 
1 . 2254E + 00 
1 .2222E + 00 
1 .2L88E + 00 
1 .2148E + 00 
1 .21 12E + 00 
1 . 2074E + 00 
1 . 2 0 3 9E + 0 0 
1 .2007E + 00 
1 . 1980E + 00 
1 . 1962E + 00 
1 . 1948E + 00 
1 . 1941E+00 
1 . 1937E+00 
l . 1937E+00 
1 . 1939E+00 
1 . 1949E+00 
1 . 1953E+00 


14 

0 . OOOOE + OO 
1 . 928 OE- 0 1 
3 . 7016E-01 
4 . 9235E-01 
5 . 6935E- 0 1 
6.211 6E-01 
6.6057E-01 
6.9277E-01 
7.191 BE- 0 1 
7.41 7 7E-0 1 
7.61 92E-0 l 
7. 7897E-01 
7 . 8998E- 0 1 
7 . 9143E-0 1 
7 .8660E-0 1 
7.8293E-01 
7 .801 IE-01 
7 . 7688E-01 
7 . 7275E-01 
7 . 6747E-01 
7 . 6152E-01 
7.551 7E-0 1 
7 .48 9 IE- 01 
7. 4304 E- 01 
7.3 773E-Q l 
7.331 OE-O 1 
7 . 2920E- 0 1 
7.260 7E- 0 1 
7.2371 E— 0 1 
7 . 2207E- 0 1 
7.21 0 3E- 0 1 
7 , 2 05 OE- 0 1 
7 . 2040E-01 
7 . 20S8E- 0 1 
7.206SE-01 
7 . 2058E-0 1 
7.2070E-01 
7 . 2079E-0 1 
7. 1 946E-0 1 
7. 1308E-01 
7.011 9E- 0 1 
6.8693E-01 
6. 6957 E- 01 
6.4470E-01 
6 . 1027E-01 
5 . 6803E-01 
5. 1455E-01 
4 . 3969E-01 
3 -2852E-01 
1 . 7256E-0 1 
0 .OOOOE+OO 

34 

0 . OOOOE+OO 
2.311 IE- 01 
4 . 7190E-01 
6.5807E-01 
7.8226E-01 
8. 7615E-01 
9 . 6 185E-0 1 
1 . 0407E + 00 
1 . 1 0 18E + 00 
1 . 1396E + 00 
1 . 1655E+00 
l . 20 18E + 00 
1 . 2 364E + 00 
1 . 24 18E + 00 
1 . 238 9E + 00 
1 . 2E80E + 00 
1 . 269 1 E + 00 
1 .2697E + 00 
1 .2677E + 00 
1 -2653E + 00 
1 .2618E + 00 
1 .2578E + 00 
1 -2534E + 00 
1 .2501E + 00 
1 .2471E + 00 
1 . 2446E + 00 
1 .2420E + 00 
1 .2393E + 00 
1 .2370E + 00 
1 .2349E + 00 
1 .2332E + 00 
1 .2315E+00 
1 .2303E+00 
1 .2303E+00 
1 .2308E+00 


16 

0 . OOOOE + OO 

1 . 924 OE- 0 1 
3. 7633E-01 
5 . 0906E- 0 1 
6 . 0172E-01 
6.707 OE- 0 1 
7 . 2525E-0 1 
7 . 6862E- 0 1 
7 . 9932E- 0 1 
8.201 7E- 0 1 
8 . 3559E-Q1 
8 . 4747E-01 
8 .5777E-0 1 
8 . 685 OE- 0 1 
8. 7779E-01 
8 . 784 9E-0 1 
8. 7608E-01 
8 . 7334E-01 
8 . 6972E-0 1 
8 . 6514E-01 
8.5978E-01 
8. 5392 E- 01 

8 . 4 789E- 0 1 
8 . 4207E- 0 l 
8 . 3658E- 0 1 
8.3160E-01 
8.2729E-01 
8 . 2375E-0 1 
8.21 OOE-O 1 
8. 1902E-01 
8.177 OE- 0 1 
8 . 1692E-01 
8. 1 666E-01 
B . 1 6 72E-01 
8. 1667E-01 
8. 1649E-01 
8. 1673E-01 
8. 1607E-0L 
8 . 1085E-0 1 
8 .0204E-01 
7.91 92E-0 1 
7. 7749E-0 1 
7.5622E-01 

7 . 2 6 9 1 E- 0 1 
6 . 88 0 6E- 0 1 
6 . 3566E-0 1 
5 . 6805E-0 1 
4.81 95E-0 1 
3 . 5739E-0 1 
1 .8527E-01 
0 . OOOOE+OO 

36 

0 . OOOOE + OO 
1 .4466E-01 
3 . 3541E- 01 
4. 7931 E- 01 
5.6147E-01 

6 . 2 364E- 0 1 
6.8913E-01 
7. 6877E-01 
8 . 6676E-0 1 
9 . 7703E-01 

1 . 0837E + 00 
1 . 1 659E + 00 
1 .210 3E + 00 
1 .2117E + 00 
1 .21 08E + 00 
1 .2377E + 00 
1 .2575E + 00 
1 . 2662E + 00 

1 . 2 733E + 00 
1 .2812E + 00 
1 . 2889E + 00 
1 .2952E + 0C 
1 . 298 6E+00 
1 .2986E+00 
1 .2952E + 00 
1.2901E+00 
1 .2846E + 00 
1.2793E+00 
1.2736E+00 
1 .2673E+00 
1 .2606E+00 
1 .2540E+00 
1 . 2479E+00 
1 .2432E+00 
1 . 2405E + 00 


18 

O.OOOOE+OO 
1 .8602E-01 
3 . 6923E- 0 1 
5.071 6E- 0 1 
5 - 982 7E-0 1 
6 . 6458E-0 1 
7.2431E-01 
7 . 8246E-0 l 
8 . 3399E- 0 1 
8 . 726 6E- 0 1 
8 . 951 OE-O 1 
9.061 IE-01 
9. 1S50E-01 
9.2644E-01 
9.351 OE- 0 1 
9. 3734E-01 
9 . 3648E-01 
9. 3522E-01 
9. 33 18E-01 
9 . 3029E-0 1 
9 . 2682E-0 1 
9.2297E-01 
9 . 1896E-0 1 
9. 1506E-01 
9 . U27E-01 
9 . 0773E-01 
9 . 0458E-0 1 
9 . 0194E-01 
8 . 9985E-0 1 
B . 9834E-0I 
8.9734E-01 
8 . 96 78E-0 1 
8 . 9660E-0 1 
8 . 9673E-01 
8 . 9669E-01 
8 . 965 1 E- 0 1 
8 . 9639E-0L 
8 . 9441E-0 l 
8 .8969E-01 
8 .8274E-01 
8 . 7004E- 0 1 
8 .4829E-0 1 
8.1516E-01 
7 . 685 3E-0 1 
7.121 OE-O 1 
6.5218E-01 
5 . 8525E- 0 1 
4 . 9545E-01 
3 . 6304E-01 
l .85 14E-0 1 
0 . OOOOE+OO 

38 

O.OOOOE+OO 
4.3245E-02 
1 .2786E-01 
1 .8333E-01 
2 . 2302E- 0 1 
2.6169E-01 
3 . 0299E- 0 1 
3.4891E-01 
4 . 0262E-0 1 
4 . 6995E-01 
5 . 5458E- 0 1 
6 .5426E-01 
7 . 6235E-0 1 
8 .6904E-01 
9.5821E-01 
1 .0210E+00 
1 . 0528E + 00 
1 .0576E + 00 
1 .0552E+00 
1 .0524E+00 
1 . 0508E + 00 
1 . 0503E + 00 
1 .0525E + 00 
1 .0568E + 00 
1 .0636E + 00 
1 .0707E+00 
1 .0769E + 00 
1.0814E+00 
1.0847E+00 
1 . 0873E + Q0 
1 .0895E + 00 
1 .0917E + 00 
1 . 0934E+00 
1 .0954E+00 
1 . 0990E ♦ 00 
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16 

9.611 IE- 01 

1 *0028E*00 

15 

9. 6069E-01 

1 . 0020E*00 

14 

9 . 5858E-0 1 

1 .0008E*00 

13 

9 . 5332E-0 1 

9 . 9462E-0 1 

12 

9.437 3E-0 1 

9.81 93E-0 1 

11 

9. 2594 E- 01 

9 . 6003E- 01 

10 

8*971 7E- 0 1 

9 .24 12E-01 

9 

8.5430E-01 

8.7362E-01 

8 

7 . 98 74E-Q1 

8. 1449E-01 

7 

7 . 38 7 2 E-0 1 

7.5479E-01 

6 

6.7969E-01 

b . 9b59E~01 

5 

6. 1074E-01 

b.2b8bE-01 

4 

5. 1359E-01 

5 , 2b8bE- 0 1 

3 

3 . 74 98E-01 

3.8383E-01 

2 

1 .8 t »79E-01 

i . 93 1 OE- 0 1 

1 

0 . OOOOE ♦ 00 

0 . OOOOE* 00 

I X I = 

: 40 

42 

I ETA 

51 

0 . OOOOE ♦ 00 

0 . OOOOE* 00 

50 

2 . 3676E- 02 

2.741 7E-02 

49 

7. 1 379E-02 

7 . 3865E-02 

48 

1 . 0630E- 0 1 

1 . 1505E-01 

47 

1 .31186-01 

1 .4215E-01 

46 

1 .5476E-01 

1 . 6409E-01 

45 

1 .801 6E- 0 1 

1 .868 IE- 0 1 

44 

2 .0803E-01 

2 . 1 149E-01 

43 

2 . 391 IE-01 

2 . 3947E-01 

42 

2 . 7326E-01 

2.6822E-01 

4 1 

3 . 13 37 E— 0 1 

3 . OO40E- 0 1 

40 

3 . 6708E-01 

3 . 3752E-0 1 

39 

4 .4196E-01 

3.87116-01 

38 

5.3805E-01 

4 .5794E-Q 1 

37 

6 . 4258E- 0 l 

5. 51856-01 

36 

7 . 3523E-0 1 

6 . 5368E-0 1 

35 

7.9830E-01 

7 . 3584E-0 1 

34 

8 . 2348E-0 1 

7 . 7860E-01 

33 

8 . 2470E-01 

7 , 8907E-0 1 

32 

8 . 2049E-0 1 

7.8827E-01 

31 

8. L490E-01 

7.8554E-01 

30 

8 . 0848E-0 I 

7 . 8205E- 0 1 

29 

8.01 3 7E- 0 1 

7. 7792E-01 

28 

7.947 7E- 0 1 

7. 7389E-01 

27 

7 . 8985E- 0 1 

7 . 7Q89E-01 

26 

7.8 788E-01 

7.6971E-01 

25 

7 . 8909E- 0 1 

7 . 7052E-01 

24 

7 . 93 15E-01 

7. 7302E-01 

23 

7 . 9894E- 0 1 

7. 7640E-01 

22 

8 . 0545E- 0 1 

7. 7990E-01 

21 

8. 1182E-01 

7 , 8 30 3E-01 

20 

8 . 1 767E-0 1 

7 . 8562E-0 1 

19 

8 . 2290E-0 1 

7.8753E-01 

18 

8 . 2644E-01 

7.8604E-01 

17 

8.2121E-01 

7. 7009E-01 

16 

7.9303E-01 

7.2430E-01 

15 

7. 3035E-01 

6 .46266-01 

14 

6.3763E-01 

5 , 5335E- 0 1 

13 

5.37656-01 

4 . 6989E-01 

12 

4 .5236E-01 

4 . 0756E- 0 1 

1 1 

3 .8937E-0 1 

3 . 6385E-01 

10 

3 .43536-01 

3 . 3058E- 0 1 

9 

3.06146-01 

3 . 0 1 10E-0 1 

a 

2. 7271 E- 01 

2.7337E-01 

7 

2 . 4278E-0 1 

2.4778E-01 

6 

2.15626-01 

2.24 18E-0 1 

5 

l . 8 98 2E-0 1 

1 .9885E-01 

4 

1 .5847E-01 

1 .6225E-01 

3 

1 .0761E-01 

1.071 7E-0 1 

2 

4.0047E-02 

4 . 3 683E-02 

l 

0 . OOOOE* 00 

0 . OOOOE* 00 

I X I 

* 60 

62 

IETA 

51 

0.00006*00 

0 . 0000E*00 

50 

1-4268E-02 

1.55776-02 

49 

3.68616-02 

3.8593E-02 

48 

5.99036-02 

6 . 2288E-Q2 

47 

7.74276-02 

8.11346-02 

46 

8.97196-02 

9.39656-02 

45 

1.00886-01 

1 .0457C-01 

44 

1 .13006-01 

1 .15626-01 

43 

1 .26276-01 

1.27736-01 

42 

1 .4093E-0 1 

1 .41086-01 

41 

1 .67216-01 

1 .55876-01 

40 

1 .75326-01 

1 . 72536-01 

39 

1 .95476-01 

1.90626-01 

38 

2.17866-01 

2.10966-01 

37 

2.42416-01 

2.33166-01 

36 

2.71376-01 

2.58956-01 

35 

3.10226-01 

2.93046-01 

34 

3.64236-01 

3.40666-01 

33 

4.32326-01 

4.02566-01 

32 

5.00216-01 

4.69056-01 

31 

5 .46306-01 

5.20566-01 

30 

5 . 64 7 1 E-0 1 

5.45(36-01 

29 

5.66976-01 

5.51106-01 

26 

5.64616-01 

5.49316-01 

27 

5.62796-01 

5 . 4 73 7E- 0 1 

26 

5.62816-01 

5.47386-01 

25 

5.64986-01 

5.49606-01 

24 

5 . 6876E-0 1 

5 . 5354E- 0 1 

23 

5 . 7332E-Q l 

5.58286-01 

22 

5 . 7774E-01 

5.62876-01 

21 

5 . 7997E-01 

5 . 6406E-0 1 

20 

5 . 728 IE-01 

5.5349E-01 

19 

5.46 73E-0 1 

5.23426-01 


1 .0415E*00 

1 . 0404E* 00 
1 .0388E*00 
1 .0323E*00 
1 .0172E*00 
9.9089E-01 
9 .4848E-01 
8 .9279E-01 
8 . 3109E-01 
7. 7080E-01 
7.1251E-01 
b . 4 153E- 0 L 
5 . 3 709E-01 
3.8932E-01 
1 . 9509E-0 1 

0 . 000 OE* 00 


44 

0 . 0000E*OQ 
3 . 0225E-02 
7 . 67 30E-02 
1 . 1944E-01 
1 . 4874E- 0 1 
1 . 6946E-01 
1 . 8902E- 01 
2. 1050E-01 
2.341 IE-01 
2 . 6027E-01 
2 .89406-01 
3 .2139E-01 
3 .592 IE-01 
4 . 1 058E-01 
4 . 83 3 9E-01 
5 . 7629E-01 
6 .6803E-01 
7.2824E-01 
7.5025E-01 
7.5302E-01 
7.5147E-Q1 
7 . 489 6E- 0 1 
7 . 4577E- 0 1 
7 , 4257E- 0 1 
7 . 4024E- 0 1 
7 * 3943E-0 1 
7 . 4032E- 0 1 
7 .4257E-01 
7.4548E-01 
7.4831E-01 

7 . 5070E-0 1 
7.5241E-01 
7 .534CE-C1 
7 . 4801 E-0 1 
7.21 98E-0 1 
6 . 6403E-01 
5 . 8258E- 0 1 
S.0175E-01 
4. 3B34E-01 

3. 9325E-01 
3 .59646-01 
3 . 3QB2E-0 1 
3.0423E-01 
2.7998E-01 
2.5773E-01 
2 . 364 1 E- 0 1 

2. 1082E-01 
1.71056-01 

1 . 1 382E-0 1 
4 . 8928E-02 

0 . OOQOE+OO 

64 

0.00006*00 
l .B078E-Q2 
4.301 66-02 
4.83846-02 

8 . 0999E- 02 
1 . 0325E- 0 1 
1 .13906-01 
1 .24 156-01 
1.35366-01 
1.47646-01 
1.61 1 7E- 0 1 
1.76146-01 
1.92716-01 
2.11096-01 
2. 31056-01 
2.54076-01 
2.84466-01 
3.27196-01 
3.83566-01 
4.46506-01 
4 . 9970E-0 1 
5.29426-01 
5 . S798E-01 
5.36986-01 
5. 34956-01 
5.34916-01 
5.37156-01 
5 .41216-01 
5.46136-01 
5.50576-01 
5 .4994E-01 
5. 35796-01 
5 . 0263E-01 


1 .0773E*00 

1 .Q762E*D0 
1 .0760E*00 
1 .0685E*0Q 
1 .0S04E*Q0 
1 .0190E*00 
9. 7320E-OI 
9. lbb9E-0l 
8 . 54 95E-0 1 
7 . 9399E-01 
7 .2933E-0 1 
6 . 5202E-0 1 
5 .4847E-01 
3 . 9801E-01 
1 .9867E-01 
0 . OO0OE*OO 


4b 

0 . OOOOE* 00 
3.0269E-02 
7 . 5800E-02 

1 . 1747E-01 

l . 4 62 7E-01 
1.65926-01 
1 .8376E-01 
2. 03036-01 
2 . 2398E-01 
2. 4699E-01 
2 . 7247E-0 1 
2 . 9997E-01 
3.311 9E-0 1 
3 . 7242E-0 1 
4.321 IE- 0 1 
5. 1416E-01 
b . 06 78E- 0 1 
b . 80 38E- 0 1 
-7. 1526E-01 
7.2289E-01 
7.2205E-01 
7. 1979E-01 
7. 1686E-01 
7 . 1390E-01 
7 . 1 177E-Q1 
7. 1 1136-01 
7.121 7E-0 1 
7. 1452E-01 
7.17476-01 
7 . 2025E-0 1 
7 -2255E-01 
7 . 242bE-Q 1 
7 . 2455E-0 1 
7. 1492E-01 
6 .8Q33E-01 
6 . 1564E-01 
5 . 3649E-01 
4 . 6537E-01 
4 . 1259E-0 1 
3.757 1E-0 1 
3 . 4762E-01 
3.2274E-01 
2. 99406-01 
2 . 7795E-Q 1 
2 . 5807E-0 1 
2.3819E-01 
2. 12926-01 
1 . 7348E-0 1 
1 . 1645E-01 
5 . 0839E-02 
0. 00006*00 
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0.00006*00 
2. 14446-02 
4.94546-02 
7.71 12E-02 
9 . 9592E- 02 
1.15516-01 
1 .26656-01 
1 .S448E-Q1 
1.44976-01 
1 .58506-01 
1 . 7124E-01 
1 .85476-01 
2.01326-01 
2.19016-01 
2.38726-01 
2.60436-01 
2.87466-01 
3.24316-01 
3.73876-01 
4.31496-01 

4.BS706-01 
5. 16246-01 
5.27746-01 
5.2792E-01 
5.25896-01 
5.25446-01 
5.2782E-01 
5.31906-01 
5.36926-01 
5.40876-01 
5.38106-01 
5.20786-01 
4 .858 IE-01 


1 . 1132E*00 
1 . 1 102E*00 
1 . 11066*00 
1 . 1032E*00 
1 .0808E*00 

1 . Q438E*00 
9.971 6E-0 1 
9 . 4b 79E-0 1 
3 .9597E-01 
8.461 OE- 0 1 
7.8984E-01 
7 . 1098E-01 
5 . 9703E-0 1 
4 . 3284E-0 1 

2. 1548E-01 
0 . OOOOE* 00 


48 


0 . OQ0QE*OO 
2. 7490E-02 
6 . 95 7 IE- 02 
1 .08146-01 
1 .34596-01 
1 .5293E-01 
1 .b982£-01 
1 .880 9E-Q 1 
2.0796E-01 
2 . 2 985E-0 1 
2.5409E-01 
2 .8 105E-0 1 

3. 1068E-01 
3.4593E-01 
3. 9401E-01 
4 .6207E-01 
5 .4797E-0 1 
6 . 2956E-0 l 
6 . 7862E-0 1 
6 . 9447E-01 
6 . 9564E-0 1 
6 . 9359E-0 l 
6. 9083E-01 
6 . 88QQE-0 1 
6 .8601E-01 
6 . 8550E-0 1 
6 . 8 b 70E-0 1 
6 . 8 920E-0 1 
6 . 9229E- 0 1 
6 . 9521E-0 1 
6 . 9764E-01 
6 . 9929E-0 1 
6 . 9783E-0 1 
6 .82626-01 
6.398 7E-0 1 
5 . 7 148E-0 1 
4 . 9846E-0 1 
4. 3893E-01 
3 . 96 12E-0 1 
S.6459E-01 
3 . 3803E-0 1 

3. 1366E-01 
2. 9142 E- 01 
2. 7093E-01 
2 . 5 1 9 3 E- 0 1 
2.3285E-01 
2 . 0850E-0 1 
1 .70366-01 
1 . 14 77E-01 
5 . 0280E- 02 
0.00006*00 


68 

0 . OOOOE* 00 
2 . 6680E- 02 
5.95446-02 
9.08106-02 
1 .15876-01 
1 .3383E-01 
1.4630E-01 
1 .56256-01 
1.64146-01 
1 . 74986-01 
1 . B892E-0 1 
2. 02156-01 
2.1686E-01 

2 . SS22E-0 1 
2.51S4E-01 
2. 7140E-01 
2 . 9562E-0 1 
3.2843E-01 
3.72506-01 
4 . 2468E-0 1 
4.74046-01 
5 . 0 722E-0 1 
5.20406-01 
5.21746-01 

5. 1 973E-01 
5.19256-01 
5.2127E-01 
5.25516-01 
5.30516-01 
5 . 3352E-01 
5 . 2857E-0 1 
5.08666-01 
4 . 7284E-01 


1 .1519E*00 
1 . 1495E*00 
1 . 1465E*00 
1 . 13456*00 
1 . 1104E*00 
1 . 0729E* 00 
1 . 02746*00 
9.7701E-01 
9 .24146-01 
8 .67176-01 
8 . 0055E-01 
7. 1509E-01 
5.989 QE-0 1 
4 . 3655E-0 1 
2 . 2 2 3 1 E- 0 1 
0 . OOOOE + QQ 


50 

0. 00006*00 
2.5148E-02 
6 . 3754E-02 
9 .9715E-02 
1 .24626-01 
1 - 4 1 92E- 0 1 
1 , 5784E-0 1 
1 . 7499E-0 1 
1 . 9356E-0 1 
2 . 1 390E-0 1 
2 . 3630E-0 1 
2.6109E-01 
2.8800E-01 
3 . 1898E-Q1 
3 . 5995E- 0 1 
4. 1822E-0 1 
4 . 9597E-01 
5 . 7980E-01 
6 . 4099E-0 1 
6 . 6695E-01 
6 . 7166E-01 
6. 70116-01 
6 . 6744E-0 1 
6 .64726-01 
6 . 628 6E-0 1 
6 , 6252E- 0 1 
6.6392E-01 
6 . 6665E-01 
6.6996E-01 
6 . 7312E-01 
6 . 7574E-0 1 
6 . 7726E- 0 1 
6. 7348E-01 
6 . 520 IE-01 
6. 02456-01 
5 . S370E-0 1 
4 . 6720E-0 1 
4 . 1 553E-0 1 
3 . 7855E-0 1 
3 . 5058E-01 
3 . 2 6 3 1 E- 0 1 
3 . 0375E-O1 
2 .8303E-01 
2.6377E-01 
2.4581E-01 
2.2752E-01 
2 . 0385E- 0 1 
1 .6673E-01 
1 . 1261E-01 
4 . 9585E- 02 
0 . OOOOE* 00 

70 

0.00006*00 
3,27056-02 
7.15426-02 
1.0707E-01 
1 . 34666-01 
1.54136-01 
1 .67686-01 
1 . 78006-01 
1.87656-01 

1 .97906-01 
2.090BE-01 
2.21376-01 
2.34956-01 
2,49986-01 
2.66606-01 

2 .84896-01 
3.068 7E-0 1 
3.36436-01 
3.761 OE— 0 1 
4.2346E-01 
4.6942E-01 
5.01 97E- 0 1 
5. 1627E-01 
5.18076-01 
5.16026-01 
5.15246-01 
5.1705E-Q1 
5.20996-01 
5.25836-01 
5.2810E-01 
5.2108E-01 
4.99226-01 
4 . 6332E-01 


1 .19216*00 
1 . 18 ?2E*00 
1 . 1864E*00 
1 ,17836*00 
1 .15646*00 
1 . 1 254E*00 
] . 0860E*00 
1 .0351E*00 
9 . b834E-0 1 
8.9515E-01 
8 . 2065E-0 1 
7 . 3404E-0 1 
6. 1621E-01 
4 . 4 756E-0 1 
2 . 2528E- 0 1 
0 . OOOOE ♦ 00 


52 

O.OOQQE+OO 
2.21 73E-02 
5.6941E-02 
8 . 9687 E-0 2 
1 . 1243E-01 
1 .2846E-01 
1 .4335E-01 
1 .5941E-01 
1 .7682E-01 
1 .95926-01 
2. 1701 E- 01 
2.4042E-01 
2 . 664 1 E- 0 1 
2 . 9530E- 0 1 
3 . 3084E- 0 l 
3.8062E-01 
4.4996E-01 
5 . 323 1 E-0 1 
6 . 0265E-0 1 
6 . 3944E-0 1 
6.4915E-01 
6 . 4862E-0 1 
6 . 4606E-0 1 
6 . 4342E-0 1 
6.4161E-01 
6.4141E-01 
6.4300E-01 
6 . 45 98E-0 1 
6 . 4955E-0 1 
6.5296E-01 
6.557 9E-0 1 
6.5701E-01 
6. 5021 E- 01 
6.2226E-01 
5 , 6787E-0 1 
5. 0091 E- 01 
4 . 4 03 OE- 0 1 
3 . 9435E-0 1 
3.6145E-01 
3.36126-01 
3.13756-01 
2.92796-01 
2.73456-01 
2.55406-01 
2.38476-01 
2.2100E-01 
1.98026-01 
1.62006-01 
1.09566-01 
4.84336-02 
0 , OOOOE* 00 
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0.00006*00 
3. 79666-02 
8.22736-02 
1.21626-01 
1 .51146-01 
1.71406-01 
1 .85386-01 
1.96036-01 
2.05766-01 
2 . 15856-01 
2.24666-01 
2. 38376-01 
2.51 16E-01 
2.45206-01 
2.80626-01 
2.97516-01 
3.17666-01 
3,44596-01 
3.80706-01 
4.24126-01 
4.67096-01 
4.98756-01 
5.13416-01 
5.16016-01 
5.13956-01 
5.12906-01 
5.14526-01 
5.18396-01 
5.22876-01 
5.23846-01 
5.14656-01 
4.91476-01 
4.5575E-01 


1 .2277E*00 
1 . 2 1 96E + 0Q 
1 .2125E + 0Q 
1 ,2063E*00 
1 . 1866E + 0 0 
l . 1498E* 00 
1 . 1066E*00 
1 .0597E*00 
9 . 9899E- 0 1 
9 . 2620E- 0 1 
8 . 4602E-Q 1 
7.5398E-01 
6 . 338 IE- 0 1 
4.57 70E-0 1 
2. 2762 E- 01 
0 . OOOOE* 00 


54 

0. 0000E*00 
1 .8883E-02 
4 . 9329E-02 
7.8461E-02 
9 . 8905E-02 
1 . 1379E-01 
1 . 2 799E- 0 1 
1 . 4 33BE- 0 1 
1 . 6013E-01 
1 . 7853E- 0 1 
1 . 9882E-01 
2 . 2124 E- 01 
2 . 4 605E-0 1 
2. 7313 E- 01 
3.0493E-01 
3.4765E-01 
4. 0767 E- 01 
4 . 8429E- 0 1 
5 . 5987E-Q 1 
6 . 0838E-0 1 
6 . 2589E-0 1 
6. 2772 E- 01 
6. 2540 E- 01 
6 .22 78E-0 1 
6 . 2Q99E-0 1 
6*2090 E- 01 
6 . 2267E-0 1 
6 . 2 588 E-0 1 
6*2971 E- 01 
6. 3333 E- 01 
6. 3635 E- 01 
6 . 3679E-0 1 
6.2590E-01 
5.9182E-01 
5. 3482E-01 
4 . 7086E-01 
4. 1602E-01 
3 . 7560E-0 1 
3 .4625E-0 1 
3 . 221SE-0 1 
3 . 0024E-0 1 
2.8020E-01 
2.61746-01 
2 . 4454E-0 1 
2 . 2840E-0 1 

2. U71E-01 
1 .8973E-01 
1.5522E-01 
1.04976-01 
4. 6386E-02 
0.00006*00 

74 

0.00006*00 
4.15096-02 
8 . 9533E-02 
1. 31606-01 
1 . 62776-01 
1 .84066-01 
1.98776-01 
2.09846-01 
2.19566-01 
2.29396-01 
2.39646-01 
2.5109E-01 
2.43316-01 
2.76636-01 
2.91186-01 
3.07026-01 
3.25766-01 
3.50626-01 
3.83946-01 
4.24316-01 
4.45006-01 
4.95996-01 
5 . 1 150E-01 
5.14646-01 
5.12736-01 
5 . 1 147E-01 
5.12956-01 
5 . 1677E-01 
5.2084E-01 
5.20566-01 
5 . 0990E-01 
4.85526-01 
4. 50496-01 


1 ,2348E*00 
1 . 2208E*00 
1 , 2Q70E*00 
1 .2005E*00 
1 . 1770E*00 
L . 1 18 7E*00 
l . Q350E*00 
9 . 3869E-Q1 
8 . 44 77E-0 1 
7.641 OE-0 1 
6.961 7E-0 1 
6 .2985E-01 
5.3887E-01 
3.8003E-01 
1 .7388E-01 
0 . OGOOE + QO 


56 


O.OOOOE+OO 
1 .6 78 7E-02 
4 . 39 12E-02 
7 . 0450E- 02 
8 . 9544E- 02 
1 . 0337E- 0 1 
1 . 1646E-01 
1 . 3067E-C 1 
1 .4615E-01 
1 .6316E-01 
1 .8194E-01 
2 . 0268E-C 1 
2.2561E-01 
2 . 5046E-0 1 
2.7899E-01 
3 . 1641E-01 
3. 6903E-01 
4 . 388QE-0 1 
5. 1520E-01 
5 . 7373E-01 
6 . 0089E-0 1 
6 . 0663E-01 
6 . 0493E-Q1 
6 . 0225E-0 1 
6 . 0049E- 0 1 
6 . 0048E- 0 1 
6 . 024 IE- 0 1 
6 . G582E-0 1 
6 , Q987E-0 1 
6 . 1373E-01 
6. 1678E-01 
6. 1538E-01 
5 . 9942E-01 
5 . 59 79E- 0 1 
5.01 68E-0 1 
4 .42 18E-01 
3 . 9388E-0 1 
3 . 5867E-0 1 
3 . 3229E-0 1 
3 . 0980E- 0 1 

2.B901E-01 
2 . 699 IE- 0 1 
2 . 5225E-0 1 
2 . 3579E-0 1 
2.2034E-01 
2 . 0450E-0 1 
1 . 8305E-0 1 
1 .4971 E-0 l 
1 .0129E-Q1 
4.491 9E-02 
0 . OOOOE* 00 
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0.00006*00 
4.32166-02 
9.41 74E-02 
1.38296-01 
1.70046-01 
1 .91316-01 
2.041 66- 0 1 
2.17876-01 
2 . 2854E-0 1 
2.591 0E-01 
2.49806-01 
2.60936-01 
2.72756-01 
2.85506-01 
2.99336-01 
3.14326-01 
3.31906-01 
3.55056-01 
3 .86056- 0 1 
4.24006-01 
4.62966-01 
4.93436-01 
5.0959E-01 
5 . 1360E-01 
5.11976-01 
5. 1058E-Q1 
5.11976-01 
5.15746-01 
5 . 1943E-01 
5.18006-01 
5.05866-01 
4. 8077 E- 01 
4.4469E-01 


Test Cases 


1 .0971E + QQ 
1 .0654E*00 
9 . 98 6 9 E-0 1 
9.0754E-01 
8 . Q4b5E-0 1 
7 . 0277E-0 1 
b. 1043E-01 
5.3279E-01 
4 . 7038E-01 
4. 184SE-0 1 
3 . 7122E-01 
3.2669E-01 
2 . 7558E- 0 1 
1 . 930 IE- 0 1 
7.3173E-02 
0. OOOOE + OO 


58 

0 . OOOOE *00 

1 . 48 70E-02 
3.9103E-02 
6.3235E-02 
8 . 0903E-02 
9 . 366 IE-02 
1 . 0565E-0 1 

1 . 1868E-01 
1 .3291E-01 
1 .4860E-01 
1 .6601E-01 
1 .8538E-01 
2.0695E-01 
2 . 3093E- 0 1 
2 , 5756E-0 1 
2 . 9016E-0 1 
3 - 353BE- 0 1 
3 . 9767E- 01 
4 . 7172E-01 
5 . 3718E-01 
5 . 7430E-01 
5 . 8547E-0 1 
5.85116-01 
5 . 8248E- 0 1 
5 .80756-01 
5 .80776-01 
5 . 8285E- 0 1 
5 .8644E-01 
5 . 9074E-01 
5 . 9488E-0 1 
5 . 9772E-01 
5 . 9378E-01 
5 . 7259E-01 
5 . 2876E-0 l 
4 . 7 144E-0 l 
4. 1666E-01 
3 . 7358E-0 1 
3.4226E-01 
3. 1838E-01 
2.9762E-01 

2 * 78 3 1 E-0 1 
2 . 6Q53E-0 1 
2 . 44 05E- 0 1 
2 . 2863E- 0 1 
2. 141QE-01 
1 .9876E-01 
1 .7803E-01 
1 .4561E-01 
9.8669E-02 
4.4026E-02 
0 . 00Q0E*00 

78 

0 . 00006*00 
4.92176-02 
1 ,03366-01 
1 . 4650E-0 1 
1 . 74896-01 
1.92646-01 
2.05116-01 
2. 1624E-01 
2.27926-01 
2.40376-01 
2.53216-01 
2. 66106-01 
2 . 790 IE- 01 
2.92206-01 
3.0597E-01 
3.20516-01 
3.37206-01 
3.58906-01 
3.87806-01 
4.23996-01 
4.61696-01 
4 . 9 1486-0 1 
5.08156-01 
5.12976-01 
5. 1140E-01 
5.10076-01 
5.11406-01 
5.15226-01 
5. 18576-01 
5.1613E-01 
5 . 0247E-0 1 
4 . 7699E-0 1 
4.4381 E-0 1 
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18 

5. 0045E-01 

4.7603E-01 

4.5533E-Q1 

4 . 3 98 7E-0 1 

4.287 4E- 0 1 

4.2128E-01 

4. 1595 E- 01 

4. 1308E-01 

4. 1 157E-01 

4 . 1 08 IE- 0 1 

17 

4 . 4528E-0 1 

4 . 2 346E- 0 1 

4 . 0649E- 0 1 

3 . 948 1 E-0 1 

3.8702E-01 

3.8247E-01 

3.8060E-01 

3.8074E-01 

3.81 72E-01 

3 . 8324E- 0 1 

16 

3. 9502E-01 

3. 7776E-01 

3.6597E-01 

3 . 5834E-0 1 

3 . 5383E- 0 1 

3 . 5 186E- 0 1 

3 . 5358E-0 1 

3.561 7E-0 1 

3 . 5893E-01 

3 .621 9£- 01 

15 

3 . 5620E-0 1 

3.4351E-01 

3.3598E-01 

3 . 3 144E-0 1 

3 . 2 944E- 0 1 

3.2943E-01 

3.33 6 7E- 0 1 

3. 3776 E- 01 

3 . 4 148E-0 1 

3.4575E-01 

U 

3. 2800 E- 01 

3. 1848E-01 

3 . 1 35 IE- 0 1 

3.1 102E-0 1 

3 . 1076E-01 

3 . 1227E-G 1 

3. 1730E-01 

3 . 2224E-0 1 

3 . 2647E-0 1 

3 . 3089E-0 1 

13 

3 . 0624E-0 1 

2 . 9800E-0 1 

2 . 9449E- 0 1 

2 . 9346E-0 1 

2 . 9454E- 0 1 

2.9730E-01 

3.023 6E- 0 1 

3 . 0 78 IE- 0 1 

3. 1227E-01 

3. 1571 E- 01 

12 

2 . 8 7 1 2 E- 0 1 

2. 7942E-01 

2. 7695E-01 

2.77 1 8E- 0 1 

2 . 7943E-0 1 

2.8326E-01 

2.8859E-01 

2.9427E-01 

2. 9870E-01 

2.9988E-01 

1 1 

2 . 6924E-0 1 

2 . 6243E-0 1 

2 . 6084E-0 1 

2.6218E-01 

2 . 6S46E-01 

2.701 9E-0 1 

2 . 7584E- 0 1 

2 .8 149E-0 1 

2.8549E-01 

2 .8362E-01 

10 

2.5275E-01 

2.4683E-01 

2 . 4599E-0 1 

2 . 4829E-0 1 

2.S246E-01 

2.5792E-01 

2 . 6 392E- 0 1 

2 . 6932E-0 1 

2. 7235E-01 

2.6755E-01 

9 

2 . 3 742E-0 1 

2 . 2237E-01 

2.321 9E-0 1 

2 . 3532E-0 1 

2.4024E-01 

2.4629E-01 

2.525 9E- 0 1 

2 . 5 765E-0 1 

2 . 5905E- 0 1 

2.5238E-01 

8 

2 . 2303E-0 1 

2. 188 IE-01 

2. 1 924E-0 1 

2.231 QE-01 

2.2864E-01 

2.3509E-01 

2.4160E-01 

2 . 4 62 7E-0 1 

2 . 455 7E-0 1 

2. 38S9E-01 

7 

2 . 0938E-Q 1 

2 . 0586E-01 

2 . 0674E-01 

2. 1 100E-01 

2. 1677E-01 

2 , 233 1 E-0 1 

2 . 2982E- 0 1 

2.338 7E-0 1 

2.3122E-01 

2.2636E-01 

6 

1 . 9463E-0 1 

1 . 91S5E-01 

1 .9254E-01 

1 . 9669E-01 

2.021 9E-0 1 

2.084 7E- 0 1 

2.147 6E- 0 1 

2. 1796E-01 

2. 1382E-01 

2. 1439E-01 

5 

1 . 7424E- 0 1 

1 . 7141E-01 

1 .7224E-01 

1 . 7596E- 01 

1 . 8094E-0 1 

1 .8676E-01 

1 .9279E-01 

1 .9527E-01 

1 . 8 9 95E- 0 1 

1 . 9890E-0 1 

A 

1 . 4249E-0 1 

1 . 4020E-0 1 

l .4097E-01 

1 . 4424E- 0 1 

1 .4860E-01 

1 .5373E-0 1 

1 . 5 9 3 7E- 0 1 

1 . 6 07 6E- 0 1 

1 . 5497E- 0 l 

l . 7283E-0 1 

3 

9 . 6765E-02 

9.5431E-02 

9 . 6346E-02 

9 . 9088E-02 

1 .0259E-01 

1 .0668E-01 

1 . 1 120E-01 

1 . 1 098E-0 1 

1 . 0499E- 0 1 

1 .2868E-01 

2 

4 . 3494E-02 

4.31 77E-02 

4.4020E-02 

4 .5762E-02 

4 . 7836E-02 

5.0171E-02 

5 . 2554E- 02 

5. 1 756E-02 

4. 6851E-02 

6 . 6 729E-02 

1 

0 . 0000E+00 

0 . 0000E*00 

0 .OOOOE^OO 

0 . OOOOE+00 

0.0000E+00 

0 . OOOOE^OO 

0.0000E*00 

0 . OOOOE+OO 

0 . 0000E*00 

0 . OOOOE+OO 


I X I = 80 81 

I ETA 


51 

0 . OOOOE+OO 

0 . OOOOE*00 

50 

8.2895E-02 

8 . 2895E-02 

49 

1 .6154E-01 

1.6154E-01 

48 

2 . 1497E-01 

2. 1497 E- 01 

47 

2. 4591 E- 01 

2 . 459 1 E-0 1 

46 

2 . 6314E-0 1 

2.631 4E-0 1 

45 

2, 7230 E- 01 

2 . 7230E-0 1 

44 

2. 7536E-01 

2.753 6E- 0 1 

43 

2. 7318E-01 

2.73 18E-01 

42 

2. 6877E-0L 

2 . 6877E-01 

41 

2 . 6766E-0 1 

2 . 6766E-01 

40 

2. 7256E-01 

2. 7256E-01 

39 

2 . 8252E-0 1 

2 . 8252E-0 1 

38 

2 . 9484E- 0 1 

2 . 9464E-01 

37 

3. 0810E-01 

3.081 OE-O 1 

36 

3.221 2E- 0 1 

3 -2212E-0 1 

35 

3. 3866E-01 

3 . 3866E-Q 1 

34 

3. 6030E-01 

3 . 6030E-0 1 

33 

3 . 8985E- 0 1 

3.8985E-01 

32 

4.2641E-01 

4.2641E-01 

31 

4 . 6 145E-01 

4 . 6 145E-01 

30 

4 . 8948E- 0 1 

4.8948E-01 

29 

5. 0653 E- 01 

5 . 0653E- 0 1 

28 

5. 1177 E- 01 

5. 1 177E-01 

27 

5 . 1050E-0 1 

5 . L050E-0 1 

26 

5 . 090 IE- 0 1 

5 . 090 IE- 0 1 

25 

5. 1027E-01 

5 . 1027E-01 

24 

5. 1404E-01 

5 . 1404E-01 

23 

5.171 IE- 0 1 

5.171 IE-01 

22 

5. 1424 E- 01 

5 . 1424E-01 

21 

5 . 0055E-0 1 

5 . 0055E-D1 

20 

4. 7502E-01 

4 . 7502E-01 

19 

4.4242E-01 

4 . 4242E-0 1 

18 

4 . 1022E-01 

4 . 1022E-01 

17 

3.8350E-01 

3 . 8350E- 0 1 

16 

3 . 6351E-0 1 

3.6351 E-0 1 

15 

3.4883E-01 

3 . 4883E-0 1 

14 

3 . 3739E-01 

3 . 3739E-01 

13 

3 . 2852E-01 

3 , 2852E-0 1 

12 

3 . 2253E-01 

3 .2253E- 0 1 

U 

3. 1934E-01 

3. 1934E-01 

10 

3. 1843E-01 

3 . 1843E-01 

9 

3. 1902E-01 

3. 1902E-01 

8 

3 . 20 18E-0 1 

3.2018E-01 

7 

3. 2101 E- 01 

3 . 2 1 0 1 E-0 1 

6 

3 . 205 IE-01 

3. 2051 E- 01 

5 

3. 1655E-01 

3 . 1655E-01 

4 

3. 026 1E-01 

3 . 026 1 E- 0 1 

3 

2. 6026 E- 01 

2 . 6026E-01 

2 

1 .6249E-01 

1 . 624 9E-01 

1 

0 . OOQOE+OO 

0 . OOOOE+OO 


**»» NOT YET CONVERGED 
STOP 


Note that this calculation has not reached the level of convergence specified in the input 
(AQ„„ < 10 -6 ). However, close examination of several parameters near the end of the calculation indicates 
that the solution is no longer changing appreciably with time, but oscillates slightly about some mean steady 
level. This type of result appears to be fairly common, especially for flows with shock waves. The reason 
is pot entirely clear, but may be related to inadequate mesh resolution, discontinuities in metric information, 
etc. For this particular case, the cause may also be inherent unsteadiness in the flow. The experimental 
data for this duct show a self-sustained oscillation of the normal shock at Mach numbers greater than about 
1.3 (Bogar, Sajben, and Kroutil, 1983). 

The three runs for this case required 709.2, 679.3, and 694.4 seconds of CPU time, respectively, for ex- 
ecution. About 142 additional seconds were required in each run to up-dimension and compile the code. 
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Computed Results 


The computed flow field is shown in Figure 9.6 in the form of constant Mach number contours. 
Contours are plotted at Mach numbers ranging from 0.0 to 1.2 in increments of 0.1. 



Figure 9.6 - Computed Mach number contours for transonic diffuser flow. 

The flow enters the duct at about \t = 0.46, accelerates to just under M = 1.3 slightly downstream of 
the throat, shocks down to about M = 0.78, then decelerates and leaves the duct at about M = 0.51. The 
normal shock in the throat region and the growing boundary layers in the diverging section can be seen 
clearly. Because this is a shock capturing analysis, the normal shock is smeared in the streamwise direction. 

The computed distribution of the static pressure ratio along the top and bottom walls is compared with 
experimental data (Hsieh, Wardlaw, Collins, and Coakley, 1987) in Figure 9.7. The static pressure ratio is 
here defined as />/(/? r )o> where (p T \ is the inlet core total pressure. 



Figure 9.7 - Computed and experimental static pressure distribution 
for transonic diffuser flow. 

The computed results generally agree well with the experimental data, including the jump conditions 
across the normal shock. The predicted shock position, however, is slightly downstream of the exper- 
imentally measured position. The pressure change, of course, is also smeared over a finite distance. There 
is also some disagreement between analysis and experiment along the top wall near the inlet. This may be 
due to rapid changes in the wall contour in this region without sufficient mesh resolution. 
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